Como chamar tela de envio de email do sistema?
Como faço para enviar um email, como se estivesse clicando em um hiperlink.
Uso delphi 6, windows XP.
Um grande abraço.
Uso delphi 6, windows XP.
Um grande abraço.
Jair Santana
Curtidas 0
Respostas
Edineidaniel
23/12/2003
Isso pode te ajudar...
Chamar um e-mail pelo Delphi
Uses Shellapi
procedure TForm1.Button1Click(Sender: TObject);
var Mail : String;
begin
Mail := ´mailto:lloydsoft@ieg.com.br´;
ShellExecute(GetDesktopWindow,´open´,pchar(Mail),nil,nil,sw_ShowNormal);
end;
t+
Chamar um e-mail pelo Delphi
Uses Shellapi
procedure TForm1.Button1Click(Sender: TObject);
var Mail : String;
begin
Mail := ´mailto:lloydsoft@ieg.com.br´;
ShellExecute(GetDesktopWindow,´open´,pchar(Mail),nil,nil,sw_ShowNormal);
end;
t+
GOSTEI 0
Lucas Silva
23/12/2003
só complementando..
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!
Isso pode te ajudar...
Chamar um e-mail pelo Delphi
Uses Shellapi
procedure TForm1.Button1Click(Sender: TObject);
var Mail : String;
begin
Mail := ´mailto:lloydsoft@ieg.com.br´;
ShellExecute(GetDesktopWindow,´open´,pchar(Mail),nil,nil,sw_ShowNormal);
end;
t+
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!
GOSTEI 0
Tomplus
23/12/2003
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. :)
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. :)
GOSTEI 0
Wagner
23/12/2003
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;
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;
GOSTEI 0