ktos tu jeszcze zagląda?

[Mironas]

W tej poradzie: http://programowanie.cal.pl/cyfbar/differ.html#differ11
jest opisane wysyłanie maila z jednym załącznikiem.

A jak po MAPI wysłać maila z kilkoma załącznikami?
Domyślam się, że w wierszu

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

MapiMessage Message = {0, Title, Note, NULL, NULL, NULL, 0, NULL, 1, &SendTo, 1, &DFile};

trzeba zmienić przedostatnią wartość (lpFiles) na liczbę załączników.
Ale jak przygotować DFile?

[polymorphism]

Zapewne powinna to być tablica struktur MapiFileDesc.

[lukagrom]

Ja z ciekawości chciałem taką tablicą zainicjować i wykorzystać, dlatego na szybko zmieniłem nieco funkcję, tak żeby do argumentów dodać wartości - ile plików i nazwy tych plików wpisać po kolei.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::SendMail(char * Adress, char * Title, char *Note,int how_Many, char **Files)
 

Jescze tablicę idzie zainicjalizować:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 MapiFileDesc *DFiles =new MapiFileDesc[how_Many];
 

Jednak z wpypełnianiem, już dużo gorzej.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

for(j=0;j<how_Many;j++)
{
   DFiles[j]={0, 0, 0,Files[j],Files[j], NULL};
}
 

W kodzie błędu pokazuje mi - Expression syntax . Nadmięnie tylko, że tu nie chodzi o typ char, bo bez tablicy wskaznik tego typu jest akceptowalny.

[polymorphism]

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

std::vector<MapiFileDesc> file_descs(how_Many);

for(int i = 0; i < file_descs.size(); ++i)
{
        file_descs[i].ulReserved = 0;
        file_descs[i].flFlags = 0;
        file_descs[i].nPosition = 0;
        file_descs[i].lpszPathName = Files[i];
        file_descs[i].lpszFileName = NULL;
        file_descs[i].lpFileType = NULL;
}

MapiMessage Message = { 0, Title, Note, NULL, NULL, NULL, 0, NULL, 1, &SendTo, file_descs.size(), &file_descs.front() };

/* reszta stuffu */

Lub:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

std::vector<MapiFileDesc> file_descs;

for(int i = 0; i < how_Many; ++i)
{
        file_descs.push_back({ 0, 0, 0, Files[i], NULL, NULL });
}

MapiMessage Message = { 0, Title, Note, NULL, NULL, NULL, 0, NULL, 1, &SendTo, file_descs.size(), &file_descs.front() };

/* reszta stuffu */

[lukagrom]

Czyli reasumując (dzięki pomocy polymorphis) nowy kształt funkcji:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::SendMail(char * Adress, char * Title, char *Note,int how_Many, char **Files)
{
  int i;
  HANDLE hMAPILib = LoadLibrary("MAPI32.DLL");
  LPMAPILOGON MapiLogon = (LPMAPILOGON)GetProcAddress(hMAPILib, "MAPILogon");
  LPMAPISENDMAIL lpMapiSendMail = (LPMAPISENDMAIL)GetProcAddress(hMAPILib, "MAPISendMail");
  LPMAPILOGOFF MapiLogoff = (LPMAPILOGOFF)GetProcAddress(hMAPILib, "MAPILogoff");
  LHANDLE mapiSession;
 (*MapiLogon)(0, NULL, NULL, 0, 0, &mapiSession);
  MapiRecipDesc SendTo = {0, MAPI_TO, NULL, Adress, 0, NULL};

  std::vector<MapiFileDesc> file_descs(how_Many);

for( i = 0; i < file_descs.size(); ++i)
{
        file_descs[i].ulReserved = 0;
        file_descs[i].flFlags = 0;
        file_descs[i].nPosition = 0;
        file_descs[i].lpszPathName = Files[i];
        file_descs[i].lpszFileName = NULL;
        file_descs[i].lpFileType = NULL;
}
MapiMessage Message = { 0, Title, Note, NULL, NULL, NULL, 0, NULL, 1, &SendTo, file_descs.size(), &file_descs.front() };
(*lpMapiSendMail)(0, 0, &Message, 0, 0);                                   // wysyłanie e-mail'a.
(*MapiLogoff)(mapiSession, 0, 0, 0);
 FreeLibrary(hMAPILib);


}
 

Moja próba wysłania plików z katalogu na swój email:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 char *files[3]={"m_test_Mapi.cpp","p_test_Mapi.res","p_test_Mapi.exe"};
 SendMail("moja_poczta@poczta.pl","Testowanie MAPI","Ala ma kota, a kot ma Ale",3,files);
}
 

I pojawilo się ostrzeżenie od Outlooka, że program próbuje wysłać maila, co niby jest nietypowe, jednakże dając Zezwalaj wszystko przebiegło OK. Tyle, że mail z jakichś przyczyn w ogóle nie dotarł.
Wysyłałem, także bezpośrendio z aplikacji .exe przy wyłączonym środowisko, ponownie lipa.

[polymorphism]

Sprawdź, co zwraca MapiSendMail, może dowiesz się, w czym jest problem.

[Mironas]

I pojawilo się ostrzeżenie od Outlooka, że program próbuje wysłać maila, co niby jest nietypowe, jednakże dając Zezwalaj wszystko przebiegło OK. Tyle, że mail z jakichś przyczyn w ogóle nie dotarł.
Wysyłałem, także bezpośrendio z aplikacji .exe przy wyłączonym środowisko, ponownie lipa.

Podaj pełne ścieżki do plików/załączników - u mnie zadziałało.

Tutaj trochę przerobiona funkcja - działająca pod C++Builder 10.2 Tokyo

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  char* files[3];
  files[0] = "C:\\Wydruki\\F0118.pdf";
  files[1] = "C:\\Wydruki\\F0119.pdf";
  files[2] = "C:\\Wydruki\\F0218.pdf";

  SendMail("mojadres@gmail.com", "Testowanie MAPI", "Ala ma kota, a kot ma Ale", 3, files);
}
//---------------------------------------------------------------------------
// Wysyłanie maila z listą załączników
void TForm1::SendMail(char* Adress, char* Title, char* Note, int how_Many, char** Files)
{
  //HANDLE hMAPILib = LoadLibrary(L"MAPI32.DLL");
  HMODULE hMAPILib = LoadLibrary(L"MAPI32.DLL");

  LPMAPILOGON MapiLogon = (LPMAPILOGON)GetProcAddress(hMAPILib, "MAPILogon");
  LPMAPISENDMAIL lpMapiSendMail = (LPMAPISENDMAIL)GetProcAddress(hMAPILib, "MAPISendMail");
  LPMAPILOGOFF MapiLogoff = (LPMAPILOGOFF)GetProcAddress(hMAPILib, "MAPILogoff");

  LHANDLE mapiSession;
  (*MapiLogon)(0, NULL, NULL, 0, 0, &mapiSession);
  MapiRecipDesc SendTo = {0, MAPI_TO, NULL, Adress, 0, NULL};

  std::vector<MapiFileDesc> file_descs(how_Many);
  for (int i=0 ; i<how_Many ; ++i)
  {
    file_descs[i].ulReserved = 0;
    file_descs[i].flFlags = 0;
    file_descs[i].nPosition = 0;
    file_descs[i].lpszPathName = Files[i];
    file_descs[i].lpszFileName = NULL;
    file_descs[i].lpFileType = NULL;
  }

  MapiMessage Message = {0, Title, Note, NULL, NULL, NULL, 0, NULL, 1, &SendTo, file_descs.size(), &file_descs.front()};
  (*lpMapiSendMail)(0, 0, &Message, 0, 0);          // Wysyłanie maila
  (*MapiLogoff)(mapiSession, 0, 0, 0);

  FreeLibrary(hMAPILib);
}
//---------------------------------------------------------------------------
 

Teraz działa poprawnie.
Wszystkim dziękuję za pomoc i zaangażowanie.

[EDIT]
Przy okazji (może to być dla kogoś istotne) - Jeśli chcemy aby mail nie wysyłał się od razu, tylko najpierw otwierał się w programie pocztowym, to lpMapiSendMail należy wywołać z parametrem MAPI_DIALOG:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

  //(*lpMapiSendMail)(0, 0, &Message, 0, 0);            // Wyślij od razu
  (*lpMapiSendMail)(0, 0, &Message, MAPI_DIALOG, 0);  // Otwórz maila przed wysłaniem
 

[lukagrom]

Czy u użytkownika Mironas, też pojawia się komunikat ostrzegawczy o próbie wysłania maila? Bo, jeżeli jest to np do ominięcia, to nawet nie było by to trudne, stworzenie aplikacji, która przeglądała by cały dysk i wyszukiwała każdy nowy plik z interesującym nasz rozszerzeniem, a po zliczeniu tych plików, wysyłała (bez ostrzegania usera z wykorzystaniem Mapi) jako załączniki pliki czy kopie pod wskazany przez nasz email. Ciekawym, czy gdyby to się udało zrealizować,podrzucić na jakiś komp, to jakby zareagował antywirus, bądz zapora Windowsa?

[Mironas]

Czy u użytkownika Mironas, też pojawia się komunikat ostrzegawczy o próbie wysłania maila? [...]

Tak.
Używam Mozilla Thunderbird.

[Android]

Cześć,
Odkopałem link i z sentymentu wszedłem sprawdzić czy strona żyje. Ktoś tu jeszcze zagląda w 2026?