Fórum Envio de Email #334392
07/12/2006
0
Olá Pessoal,
Navegando pelo site vi esse tópico [url]http://forum.devmedia.com.br/viewtopic.php?t=57324&highlight=exemplo+email&sid=6bc0d521a7bb4f88135b1b71e3ca30e0[/url]
Será que alguém pode mandar um exemplo de como usar essa classe ou alguém tem um exemplo simples de envio de email ?
Tks !
Navegando pelo site vi esse tópico [url]http://forum.devmedia.com.br/viewtopic.php?t=57324&highlight=exemplo+email&sid=6bc0d521a7bb4f88135b1b71e3ca30e0[/url]
Será que alguém pode mandar um exemplo de como usar essa classe ou alguém tem um exemplo simples de envio de email ?
Tks !
Tathianam
Curtir tópico
+ 0
Responder
Posts
07/12/2006
Tathianam
Olha, usei assim:
Já mandou mensagem; mas se alguém tiver um método melhor, mais seguro, fácil, limpo, sei lá... Pode mandar !
T+ !
function TdmParam.EnviaMensagemEmail(fTexto: widestring): boolean;
var objMKMail: TmkMail;
xOk: boolean;
begin
objMKMail := TmkMail.Create(application);
objMKMail.De := ´news@zzz.com.br´;
objMKMail.Assunto := ´TESTE DE MKMAIL´;
objMKMail.Prioridade := pmUrgente;
objMKMail.Para := ´ele@zzz.com.br´;
objMKMail.CopiaOculta := ´outro@zzz.com.br´;
objMKMail.Texto := fTexto;
objMKMail.Usuario := ´eu@zzz.com.br´;
objMKMail.Senha := ´zzz000´;
objMKMail.Host := ´smtp.zzz.com.br´;
objMKMail.TipoDeAutenticacao := atLogin;
xOk := objMKMail.Enviar;
result := xOk;
objMKMail.Destroy;
end;
Já mandou mensagem; mas se alguém tiver um método melhor, mais seguro, fácil, limpo, sei lá... Pode mandar !
T+ !
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)