Como anexar arquivos no cliente padrão de e-mail??? (navoid)
o código abaixo abre o cliente de e-mail padrão com alguns campos preenchidos com valores pre-definidos, mas estou querendo anexar um arquivo qualquer...
alguem sabe como seria????
procedure envia_email(email, assunto, mensagem: string);
begin
shellexecute(0, ´open´, ´mailto:´+email+´?subject=´+assunto+´&body=´+mensagem, ´´, ´´, SW_SHOW);
end;
[]´s
Rodrigo Duarte
alguem sabe como seria????
procedure envia_email(email, assunto, mensagem: string);
begin
shellexecute(0, ´open´, ´mailto:´+email+´?subject=´+assunto+´&body=´+mensagem, ´´, ´´, SW_SHOW);
end;
[]´s
Rodrigo Duarte
Anonymous
Curtidas 0
Respostas
Flaviodfp
27/02/2003
Tente isto. Funcionou comigo. Voce vai ter q usar o componente NMSMTP da paleta FastNet
NMSMTP1.Host := ´host.blabla.com.br´;
NMSMTP1.UserId := ´usuario´;
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := ´meemail@blabla.com.br´;
NMSMTP1.PostMessage.ToAddress.Text := ´alguem@hotmail.com´;
NMSMTP1.PostMessage.Body.Text := ´Teste de envio dos arquivos´;
NMSMTP1.PostMessage.Attachments.Text := ´C:\autoexec.bat´;
NMSMTP1.PostMessage.Subject := ´Teste de envio´;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
NMSMTP1.Host := ´host.blabla.com.br´;
NMSMTP1.UserId := ´usuario´;
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := ´meemail@blabla.com.br´;
NMSMTP1.PostMessage.ToAddress.Text := ´alguem@hotmail.com´;
NMSMTP1.PostMessage.Body.Text := ´Teste de envio dos arquivos´;
NMSMTP1.PostMessage.Attachments.Text := ´C:\autoexec.bat´;
NMSMTP1.PostMessage.Subject := ´Teste de envio´;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
GOSTEI 0