Fórum Enviar e-mail usando o OUTLOOK #354481

Olá Pessoal,

Estou usando o codigo abaixo para enviar e-mail pelo OUTLOOK com copia oculta para os destinatarios que estão no edit3. Agora preciso que o campo Para (email:=´mailto:´+´user@bol.com.br´;) seja preenchido com o e-mail padrão do remetente (o campo De já vem preenchido com esse e-mail). Alguem sabe como faço isso? Obrigado.

email:= ´mailto:´+´user@bol.com.br´;
email:= email + ´?subject=´+Edit1.Text;
email:= email + ´&body=´+memo4.text;
email:= email + ´&bcc=´+edit3.Text;
Shellexecute(GetDesktopWindow,´open´,pchar(email),nil,nil,sw_shownormal);