Fórum Como enviar email delphi 7 #131673
01/02/2003
0
Antes existia a paleta FastNet, agora ferrou. Se alguem souber da o toque ai mano.
Anonymous
Curtir tópico
+ 0Posts
01/02/2003
Kandrus
Gostei + 0
02/02/2003
Marcelo
begin
ShellExecute(0,´Open´,´Mailto:nomedoemail@empresa.com.br´,nil,nil,1);
end;
Marcelo
Gostei + 0
02/02/2003
Navoid
use os componentes da paleta Indy Client
se não me engano o componene é idSMTP.
Gostei + 0
02/02/2003
Skaarj
//Processo de reconhecimento no POP3 do UOL
NMPOP31.AttachFilePath := ´.´;
NMPOP31.DeleteOnRead := FALSE;
NMPOP31.ReportLevel := Status_Basic;
NMPOP31.TimeOut := 20000;
NMPOP31.Host := ´pop3.uol.com.br´;
NMPOP31.Port := 110;
NMPOP31.UserID := ´MeuLogin´;
NMPOP31.Password := ´Minha Senha´;
NMPOP31.Connect;
//Conexão não feita ele sai
//Conexão feita ele desconecta e prossegue
if not NMPOP31.Connected then exit else NMPOP31.Disconnect;
//Prosseguindo ele agora tenta se conectar ao SMTP do UOL
NMSMTP1.ClearParams := TRUE;
NMSMTP1.Host := ´smtp.uol.com.br´
NMSMTP1.Port := 25;
NMSMTP1.UserID := ´MeuLogin´
NMSMTP1.Connect;
//Conexão não feita ele sai
//Conexão feita ele prossegue
If not NMSMTP1.Connected then exit;
//Processo de envio
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.FromAddress := ´MeuLogin@MeuProvedor.com.br´
NMSMTP1.PostMessage.FromName := ´Meu Nome Completo´
NMSMTP1.PostMessage.Body.Add(´Teste de envio de email´);
NMSMTP1.PostMessage.Subject := (´Teste de Envio´);
NMSMTP1.PostMessage.ToAddress.Add(´destino@DestinoProvedor.com.br´);
NMSMTP1.SendMail;
Gostei + 0
19/03/2003
Dor_poa
Gostei + 0
23/04/2004
Nigro
Gostei + 0
03/03/2005
Edinn
alguem pode me ajudar?
valeu...
Gostei + 0
05/03/2005
Xjulio
Gostei + 0
05/03/2005
Otto
utilize os Componentes da paleta Indy do delphi 7, caso tenha problemas, veja esta dica:
:arrow: http://www.clubedelphi.net/EMails.html
:wink:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)