Enviar e-mail

Question

Bem, eu estou usando o seguinte codigo no evento onclik para enviar e-mail�s: ...begin ShellExecute(0,�Open�,�Mailto:nomedoemail@empresa.com.br�,nil,nil,1); end;so que eu gostaria de mandar um enderec...

Anonymous · Answer

begin ShellExecute(0,�Open�,�Mailto:�+edit1.text,nil,nil,1); end;...

Marcelo · Answer

[quote:57ecad3577=�brunohrrr�]begin ShellExecute(0,�Open�,�Mailto:�+edit1.text,nil,nil,1); end;[/quote:57ecad3577]Bem esse codigo nao da certo nao, eu ja resolvi o problema.... vc tem que fazer da seguinte maneira....[b:57ecad3577]var[/b:57ecad3577]  mail:[b:57ecad3577]string[/b:57ecad3577];[b:57ecad3577]begin[/b:57ecad3577]mail:=edit.text;ShellExecute(GetDesktopWindow,�open�,pchar(Mail),nil,nil,sw_ShowNormal); [b:57ecad3577]end[/b:57ecad3577];E declarar ShellApi em uses. Esse c�digo abre o OutLook, e coloca o emal que esta no edit.text.valeu gente, mas ja deu certo, t+...