e-mail com anexo no Indy
Boa tarde amigos,
Estou precisando anexar anexos em e-mail que envio usando o componente Indy.
Estou recebendo a seguinte mensagem de erro no momento de compilar o sistema: ´Too many actual parameters´
Ja tentei escrever o código de duas maneiras distintas:
1.
if BuscarAnexos.Execute then
begin
TIdAttachment.Create(IdMensagem.MessageParts, OpenDialog1.FileName);
ResetAttachmentListView;
end;
2.
TIdAttachment.Create(IdMensagem.MessageParts, ´C:\ClubeMG\Teste.txt´);
Em ambas as formas o erro é o mesmo, e a agulha para sempre após a vírgula: TIdAttachment.Create(IdMensagem.MessageParts,...
Qualquer ajuda será muito bem vinda.
Estou precisando anexar anexos em e-mail que envio usando o componente Indy.
Estou recebendo a seguinte mensagem de erro no momento de compilar o sistema: ´Too many actual parameters´
Ja tentei escrever o código de duas maneiras distintas:
1.
if BuscarAnexos.Execute then
begin
TIdAttachment.Create(IdMensagem.MessageParts, OpenDialog1.FileName);
ResetAttachmentListView;
end;
2.
TIdAttachment.Create(IdMensagem.MessageParts, ´C:\ClubeMG\Teste.txt´);
Em ambas as formas o erro é o mesmo, e a agulha para sempre após a vírgula: TIdAttachment.Create(IdMensagem.MessageParts,...
Qualquer ajuda será muito bem vinda.
Vetorzero
Curtidas 0
Respostas
Vetorzero
11/10/2004
Uma dica, uma direção, um toque... ou quem sabe até a solução... ajudem aí amigos...
Logo abaixo da primeira mensagem de erro([color=orange:ce50cdcf58]Too many actual parameters[/color:ce50cdcf58]) vem a que se segue: [color=blue:ce50cdcf58]Constructing instance of TIdAttachment containing abstract methods[/color:ce50cdcf58].
Logo abaixo da primeira mensagem de erro([color=orange:ce50cdcf58]Too many actual parameters[/color:ce50cdcf58]) vem a que se segue: [color=blue:ce50cdcf58]Constructing instance of TIdAttachment containing abstract methods[/color:ce50cdcf58].
GOSTEI 0
Ipc$
11/10/2004
Tente criar sem o Filename:
TIdAttachment.Create(IdMensagem.MessageParts); TIdAttachment(IdMensagem.MessageParts[0]).FileName := OpenDialog1.FileName;
GOSTEI 0
Sitelocal
11/10/2004
TIDATTACHMENT.CREATE(IDMSG.MESSAGEPARTS,TFILENAME(´C:\ARQUIVOS DE PROGRAMAS\AUTOCOM.NET\´
+´PvD´+FORMATFLOAT(´00000´,STRTOINT(DMDADOS.CDSVENDASDIR1.FIELDBYNAME(´IDVENDIR´).VALUE))+´.PDF´))
+´PvD´+FORMATFLOAT(´00000´,STRTOINT(DMDADOS.CDSVENDASDIR1.FIELDBYNAME(´IDVENDIR´).VALUE))+´.PDF´))
GOSTEI 0