Fórum Mandando e-mail pelo Outlook Express #196457

se voce quizer mandar um e-mail direto

procedure TForm1.Button1Click(Sender: TObject);
begin

{ Seu servidor SMTP }
NMSMTP1.Host := ´smtp.servidor.com.br´;

{ Porta SMTP, **NÃO MUDE ISTO** }
NMSMTP1.Port := 25;

{ Nome de login do usuário }
NMSMTP1.UserID := ´MeuLogin´;

{ Conecta ao servidor }
NMSMTP1.Connect;

{ Se ocorrer algum erro durante a conexão com o servidor, avise! }
if not NMSMTP1.Connected then
raise Exception.Create(´Erro de conexão´);

with NMSMTP1.PostMessage do begin
{ Seu e-mail }
FromAddress := ´meuemail@meuserver.com.br´;

{ Seu nome }
FromName := ´Meu Nome´;

{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(´destinatario@servidor.com.br´);

{ Assunto da mensagem }
Subject := ´Assunto da mensagem´;

{ Corpo da mensagem }
Body.Clear;
Body.Add(´Primeira linha da mensagem´);
Body.Add(´Segunda linha da mensagem´);
Body.Add(´´); { Linha em branco }
Body.Add(´Última linha da mensagem´);

{ Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }

Attachments.Clear;

{ Endereço do anexo }
Attachments.Add(´c:\diretorio\arquivo.ext´);

end;

{ Manda o e-mail }
NMSMTP1.SendMail;
{ Disconecta do servidor }
NMSMTP1.Disconnect;
end;

Tenta isso daí...

var email: String;

Email := ´mailto: teste@teste.com.br ?subject= assunto body=textoMail;
ShellExecute(Handle,´open´,pchar(EmailRc), nil, nil, SW_SHOWNORMAL );

Falow

[quote:c128e4e9f6=´Lucas Alves Silva´]Tenta isso daí...

var email: String;

Email := ´mailto: teste@teste.com.br ?subject= assunto body=textoMail;
ShellExecute(Handle,´open´,pchar(EmailRc), nil, nil, SW_SHOWNORMAL );

Falow[/quote:c128e4e9f6]

corrigindo

Email := ´mailto: teste@teste.com.br ?subject= assunto body=textoMail;
ShellExecute(Handle,´open´,pchar(Email), nil, nil, SW_SHOWNORMAL );