Cesar, Tente enviar os anexos separados por #13, por ex.:
MeusAnexos := 'arquivo1.txt'+#13+'arquivo2.txt' ; Sucesso !! Moacir Fellipe Henrique escreveu: > Olá Ricardo, > > Foi a primeira coisa que tentei mudar, porém continua a dar erro nº 2... não > adianta mudar o nFileCount, só se eu estiver mudando no local errado. > > []s > > 2009/9/28 Ricardo César Cardoso <ricardo_engs...@yahoo.com.br> > > >> Dica: Dá uma lida no código e repare no uso da variável nFileCount. >> >> Abraço, >> Ricardo. >> >> 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. >> >> 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor >> compreendida. >> >> 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! >> >> --- Em seg, 28/9/09, Fellipe Henrique >> <felli...@gmail.com<fellipeh%40gmail.com>> >> escreveu: >> >> De: Fellipe Henrique <felli...@gmail.com <fellipeh%40gmail.com>> >> Assunto: [delphi-br] Como enviar vários anexos usando MAPI via Delphi? >> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> >> Data: Segunda-feira, 28 de Setembro de 2009, 13:50 >> >> >> >> >> Amigos, achei um codigo na internet que usa MAPI pra enviar email.. porém >> só >> >> aceita 1 anexo... alguém teria algum codigo que aceitaria mais de 1 anexo? >> >> Segue o codigo: >> >> function SendMailMAPI( const Subject, Body, FileName, SenderName, >> >> SenderEMail, >> >> RecepientName, RecepientEMail: string): Integer; >> >> var >> >> message: TMapiMessage; >> >> lpSender, >> >> lpRecepient: TMapiRecipDesc; >> >> FileAttach: TMapiFileDesc; >> >> SM: TFNMapiSendMail; >> >> MAPIModule: HModule; >> >> SL: TStringList; >> >> i: integer; >> >> begin >> >> FillChar(message, SizeOf(message) , 0); >> >> with message do >> >> begin >> >> if (Subject <> '') then >> >> begin >> >> lpszSubject := PChar(Subject) >> >> end; >> >> if (Body <> '') then >> >> begin >> >> lpszNoteText := PChar(Body) >> >> end; >> >> if (SenderEMail <> '') then >> >> begin >> >> lpSender.ulRecipCla ss := MAPI_ORIG; >> >> if (SenderName = '') then >> >> begin >> >> lpSender.lpszName := PChar(SenderEMail) >> >> end >> >> else >> >> begin >> >> lpSender.lpszName := PChar(SenderName) >> >> end; >> >> lpSender.lpszAddres s := PChar('SMTP: ' + SenderEMail) ; >> >> >> lpSender.ulReserved := 0; >> >> lpSender.ulEIDSize := 0; >> >> lpSender.lpEntryID := nil; >> >> lpOriginator := @lpSender; >> >> end; >> >> if (RecepientEMail <> '') then >> >> begin >> >> lpRecepient. ulRecipClass := MAPI_TO; >> >> if (RecepientName = '') then >> >> begin >> >> lpRecepient. lpszName := PChar(RecepientEMai l) >> >> end >> >> else >> >> begin >> >> lpRecepient. lpszName := PChar(RecepientName ) >> >> end; >> >> lpRecepient. lpszAddress := PChar('SMTP: ' + RecepientEMail) ; >> >> lpRecepient. ulReserved := 0; >> >> lpRecepient. ulEIDSize := 0; >> >> lpRecepient. lpEntryID := nil; >> >> nRecipCount := 1; >> >> lpRecips := @lpRecepient; >> >> end >> >> else >> >> begin >> >> lpRecips := nil >> >> end; >> >> if (FileName = '') then >> >> begin >> >> nFileCount := 0; >> >> lpFiles := nil; >> >> end >> >> else >> >> begin >> >> SL := TStringList. Create; >> >> try >> >> SL.Text := Filename; >> >> for i := 0 to SL.Count - 1 do >> >> begin >> >> FillChar(FileAttach , SizeOf(FileAttach) , 0); >> >> FileAttach.nPositio n := Cardinal($FFFFFFFF) ; >> >> FileAttach.lpszPath Name := >> >> PChar(SL.Strings[ i]);//PChar( FileName) ; >> >> Inc(nFileCount) ;//nFileCount := 1; >> >> lpFiles := @FileAttach; >> >> end; >> >> finally >> >> SL.Free; >> >> end; >> >> end; >> >> end; >> >> MAPIModule := LoadLibrary( PChar(MAPIDLL) ); >> >> if MAPIModule = 0 then >> >> begin >> >> Result := -1 >> >> end >> >> else >> >> begin >> >> try >> >> @SM := GetProcAddress( MAPIModule, 'MAPISendMail' ); >> >> if @SM <> nil then >> >> begin >> >> Result := SM(0, Application. Handle, message, MAPI_DIALOG or >> >> MAPI_LOGON_UI, 0); >> >> end >> >> else >> >> begin >> >> Result := 1 >> >> end; >> >> finally >> >> FreeLibrary( MAPIModule) ; >> >> end; >> >> end; >> >> if Result <> 0 then >> >> begin >> >> MessageDlg(' Error sending mail (' + IntToStr(Result) + ').', mtError, >> >> [mbOk], >> >> 0) >> >> end; >> >> end; >> >> -- >> >> ____________ _________ _________ ___ >> >> T.·.F.·.A.·. >> >> Fellipe Henrique >> >> ------------ --------- --------- --------- --------- --------- - >> >> CAMPANHA POR UMA INTERNET SEGURA >> >> Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar >> >> mensagens use SEMPRE o "Cco" (cópia oculta). >> >> Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar >> >> um e-mail, delete todas as informações que apareçam no corpo do e-mail e >> que >> >> possam ser usadas por hackers. >> >> ############ ######### ######### ######### >> >> [As partes desta mensagem que não continham texto foram removidas] >> >> >> >> >> >> >> >> >> >> >> >> __________________________________________________________ >> Veja quais são os assuntos do momento no Yahoo! +Buscados >> http://br.maisbuscados.yahoo.com >> >> [As partes desta mensagem que não continham texto foram removidas] >> >> >> >> > > > > [As partes desta mensagem que não continham texto foram removidas]