Email com anexo no Delphi 2005 dá erro ... Como faço ?
Tento usar as mesmas soluçãoes passadas aqui para Delphi 7 no 2005 e dá um erro ´Too many paramters´, lá só pede um TCollection com parametro os meus nomes de arquivos a serem anexados estão em um ListVew, como faço para anexar esses arquivos a um email.
:roll:
:roll:
Ibotirama
Curtidas 0
Respostas
Frcjf
02/03/2005
Colega
poderia colocar o código de como enviar email via outlook com anexo, sem que ele peça confirmações
grato
poderia colocar o código de como enviar email via outlook com anexo, sem que ele peça confirmações
grato
GOSTEI 0
Ibotirama
02/03/2005
Coloque aí no Forum, Pesuisar e digite TSMTP ou TIdAttachment, q vão aparecer várias respostas de como enviar emails com Anexo no Delphi7 meu problema é q está dando erro no Delphi 2005
GOSTEI 0
Alexandre Krepe
02/03/2005
No delphi 2005 houve uma pequena mudança mesmo.
Declare no Uses: IdAttachmentFile, e substitua o TIdAttachment por TIdAttachmentFile ficando assim:
for xAnexo := 0 to ListBox1.Items.Count-1 do
TIdAttachmentFile.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo]));
não testei tirei do Script Nrasil forum http://www.scriptbrasil.com.br/forum/index.php?act=ST&f=21&t=53110
Declare no Uses: IdAttachmentFile, e substitua o TIdAttachment por TIdAttachmentFile ficando assim:
for xAnexo := 0 to ListBox1.Items.Count-1 do
TIdAttachmentFile.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo]));
não testei tirei do Script Nrasil forum http://www.scriptbrasil.com.br/forum/index.php?act=ST&f=21&t=53110
GOSTEI 0