Club Builder

[rauls66]

Hola, hace poco utilicé este código que rueda por el foro, pero necesito
que me envíe correo a varios destinatarios. No encuentro nada por ningún sitio. ¿Sabe alguien cómo se haría? Gracias.


TMapiMessage MapiMessage;
TMapiRecipDesc MapiRecipDesc;
TMapiFileDesc MapiFileDesc;
Cardinal MError;

ZeroMemory(&MapiRecipDesc, sizeof(MapiRecipDesc));
MapiRecipDesc.ulRecipClass = MAPI_TO;

// char Name[20];
//strcpy(Name,ConfigMails->EditMailAddress->Text.c_str());


char Destiny[30];
strcpy(Destiny,ConfigMails->EditDestinyAddress->Text.c_str());


//MapiRecipDesc.lpszName = Name;
MapiRecipDesc.lpszAddress = Destiny;

// ZeroMemory(&MapiFileDesc, sizeof(MapiFileDesc));
//MapiFileDesc.lpszPathName = "c:\\program files\\Prova\\testmail.txt";

ZeroMemory(&MapiMessage, sizeof(MapiMessage));
MapiMessage.lpszSubject = "Test message from ....";
//MapiMessage.lpszNoteText = TextoMensaje->Lines->Text.c_str();
MapiMessage.nRecipCount = 1;
MapiMessage.lpRecips = &MapiRecipDesc;
// MapiMessage.nFileCount = 1;
// MapiMessage.lpFiles = &MapiFileDesc;

MError = MapiSendMail(0, reinterpret_cast<unsigned>(Application->Handle),
MapiMessage, MAPI_NEW_SESSION, 0);

if (MError)
ShowMessage("Error: Unable to send the message");

[_Leo]

[rauls66]

Pues no consigo que me funcione, sigue enviándome sólo 1 correo.


TMapiRecipDesc MapiRecipDesc[2]={0};
Cardinal MError;


ZeroMemory(&MapiRecipDesc, sizeof(MapiRecipDesc));
MapiRecipDesc[0].ulRecipClass = MAPI_TO;
MapiRecipDesc[0].lpszAddress = "destino1@destino1.es";
MapiRecipDesc[1].ulRecipClass = MAPI_TO;
MapiRecipDesc[1].lpszAddress = "destino2@destino2.es";

TMapiMessage MapiMessage={0};
ZeroMemory(&MapiMessage, sizeof(MapiMessage));
MapiMessage.lpszSubject = "Test message from ....";
MapiMessage.nRecipCount = 2;
MapiMessage.lpRecips = MapiRecipDesc;

MError = MapiSendMail(0, reinterpret_cast<unsigned> (Application->Handle),
MapiMessage, MAPI_NEW_SESSION, 0);

if (MError)
ShowMessage("Error: Unable to send the message");

[_Leo]

[rauls66]

Ok, el problema era que para hacer las pruebas me enviaba el correo a la misma dirección de Gmail. Y no sé porqué sólo me llega uno de ellos. Cuando he probado mandarlo a dos direcciones diferentes, entonces sí que ha funcionado.
Gracias Leo, y si esto es como digo y sabes por qué pasa, si puedes comentarlo.

[_Leo]