F�rum Emails com Mapi #386072

10/09/2010

Boa Tarde
eu tenho uma rotina que envia Email atraves de MAPI utilizando o Email padr�o do windows
s� que nesta rotina eu s� consigo adicionar um destinat�rio para o Email
gostaria de uma maneira que pudesse encaminhar para varias pessoas o mesmo conte�do.
Alguem teria um exemplo para demonstrar?

Timuio

Curtir t�pico

+ 0

Responder

Posts

10/09/2010

Leonardo Bertolini

Posta seu c�digo ai pra gente ajudar.... flw

Responder

Gostei + 0

10/09/2010

Timuio

function EnviarEmail(EndMail: string; Assunto: string; Texto: string; Anexo: TStringList );type  TAttachAccessArray = array [0..0] of TMapiFileDesc;  PAttachAccessArray = ^TAttachAccessArray;var  Message: TMapiMessage;  MError: Cardinal;  Sender: TMapiRecipDesc;  PRecip, Recipients: PMapiRecipDesc;  Attachments: PAttachAccessArray;  x: Integer;  begin      if  not VerificaEmailValido( Trim( EndMail ) ) then    begin    ShowMessage('Endere�o de e-mail inv�lido.');    Exit;    end;
  Message.nRecipCount := 1;  GetMem( Recipients, Message.nRecipCount * sizeof(TMapiRecipDesc) );

    with Message do begin      ulReserved := 0;      lpszSubject := PChar( Assunto );      lpszNoteText := PChar( Texto );      lpszMessageType := nil;      lpszDateReceived := nil;      lpszConversationID := nil;      flFlags := 0;      Sender.ulReserved := 0;      Sender.ulRecipClass := MAPI_ORIG;      Sender.lpszName := PChar( '' );      Sender.lpszAddress := PChar( '' );      Sender.ulEIDSize := 0;      Sender.lpEntryID := nil;      lpOriginator := @Sender;  
        PRecip := Recipients;        PRecip^.ulReserved := 0;        PRecip^.ulRecipClass := MAPI_TO;        PRecip^.lpszName := PChar( EndMail );        PRecip^.lpszAddress := StrNew( PChar('SMTP:' + EndMail ) );        PRecip^.ulEIDSize := 0;        PRecip^.lpEntryID := nil;        Inc( PRecip );        lpRecips := Recipients;
    //anexos foram cortados pois j� funciona perfeitamente...

Responder

Gostei + 0

17/09/2010

Timuio

[code]//Declare um array de
aRecipiente: Array of TMapiRecipDesc;
//e um contador pra verificar quantos emails vc est� adicioando

Message.nRecipCount := Contador; SetLength( aRecipiente, Contador );

for i := 0 to Contador - 1 do begin aRecipiente[i].ulReserved := 0; aRecipiente[i].lpszName := PChar( aEndereco[i] ); aRecipiente[i].lpszAddress := StrNew( PChar('SMTP:' + aEndereco[i] ) ); aRecipiente[i].ulEIDSize := 0; aRecipiente[i].lpEntryID := nil; aRecipiente[i].ulRecipClass := MAPI_TO; end;
//passa a posi��o do array com todos valoresMessage.lpRecips := @aRecipiente[0];

Responder

Gostei + 0

17/09/2010

Timuio

pode defirnir Concluido este topico

Responder

Gostei + 0