Como chamar tela de envio de email do sistema?

Question

Como fa�o para enviar um email, como se estivesse clicando em um hiperlink.Uso delphi 6, windows XP.Um grande abra�o....

Edineidaniel · Answer

Isso pode te ajudar...Chamar um e-mail pelo DelphiUses Shellapi procedure TForm1.Button1Click(Sender: TObject);var Mail : String;beginMail := �mailto:lloydsoft@ieg.com.br�;ShellExecute(GetDesktopWindow,�open�,pchar(Mail),nil,nil,sw_ShowNormal);end;t+...

Lucas Silva · Answer

s� complementando..[quote:8fbca6fa59=�ienide�]Isso pode te ajudar...Chamar um e-mail pelo DelphiUses Shellapi procedure TForm1.Button1Click(Sender: TObject);var Mail : String;beginMail := �mailto:lloydsoft@ieg.com.br�;ShellExecute(GetDesktopWindow,�open�,pchar(Mail),nil,nil,sw_ShowNormal);end;t+[/quote:8fbca6fa59]var mail: String;mail := �mailto: a@a.com.br  ?subject=� Teste �+�&body= Email de teste�;ShellExecute(Handle,�open�,pchar(mail), nil, nil, SW_SHOWNORMAL );Lucas!...

Tomplus · Answer

Com este formato no meu c�digo sempre ficava mensagem pchar n�o usado quando compilava.

Passei a usar este:
ShellExecute(handle,�open�,�mailto:suporte@teste.com.br�,��,��,1);

e funcionou legal e pode acrescentar mais itens entre as aspas se prefirir. :)

Wagner · Answer

Cara pelo o que eu entendi o teu problema e esse. n�o?
coloca um bot�o no form e quando clicar chama o outlook ou substitui por outro que voce desejar

procedure form.SpeedButton7Click(Sender: TObject);
begin
winexec(�C:\Arquivos de programas\Outlook Express\msimn.exe�,sw_show);
end;

F�rum Como chamar tela de envio de email do sistema? #202660