Fórum Enviando E-Mail pelo Delphi 6. Componente: NMSMTP(FastNET) #183226
20/09/2003
0
Bom pessoal, é o seguinte, peguei um texto na internet, ensinando como enviar email pelo delphi usando o componente NMSMTP da paleta FASTNET. so que esta dando erro, nao envia nao.
Alguem teria uma outra rotina(com um outro componente sei la) que envie email pelo delphi e arquivos anexados...???
o codigo que tenho comigo é o seguinte:
[b:1a90282a26]procedure[/b:1a90282a26] TForm1.Button1Click(Sender: TObject);
[b:1a90282a26]begin[/b:1a90282a26]
NMSMTP1.Port := 25; [color=olive:1a90282a26]// Definindo a porta de comunicação, essa é a padrão[/color:1a90282a26]
NMSMTP1.Host := Edit1.Text; [color=olive:1a90282a26]// Seta o Endereço do Host.[/color:1a90282a26]
NMSMTP1.UserID := Edit2.Text; [color=olive:1a90282a26]// Nome do usuario[/color:1a90282a26]
NMSMTP1.PostMessage.FromAddress := Edit3.Text; [color=olive:1a90282a26]// Origem[/color:1a90282a26]
NMSMTP1.PostMessage.ToAddress.Add(Edit4.Text); [color=olive:1a90282a26]// o Destino[/color:1a90282a26]
NMSMTP1.PostMessage.Subject := Edit5.Text; [color=olive:1a90282a26]// o Assunto.[/color:1a90282a26]
NMSMTP1.PostMessage.Attachments.Add(Edit6.text); [color=olive:1a90282a26]// o Anexo[/color:1a90282a26]
NMSMTP1.PostMessage.Body.Assign(Memo1.Lines); [color=olive:1a90282a26]// Mensagem do email[/color:1a90282a26]
NMSMTP1.Connect; //Conecta com o host
NMSMTP1.SendMail; [color=olive:1a90282a26]// envia o email.[/color:1a90282a26]
NMSMTP1.Disconnect; [color=olive:1a90282a26]// desconecta e finaliza.[/color:1a90282a26]
[b:1a90282a26]end;[/b:1a90282a26]
----------
Obs, localizei os topicos relacionados a esse assunto aqui no forum e deu mais de mil.. nao tive paciencia de olha, preferir postar e assim, nao so a minha, tirar a dúvida de outros.
Espero ter me expressado bem..
Agradeco desde ja..
Atenciosamente
oTTo Husckows :shock:
Alguem teria uma outra rotina(com um outro componente sei la) que envie email pelo delphi e arquivos anexados...???
o codigo que tenho comigo é o seguinte:
[b:1a90282a26]procedure[/b:1a90282a26] TForm1.Button1Click(Sender: TObject);
[b:1a90282a26]begin[/b:1a90282a26]
NMSMTP1.Port := 25; [color=olive:1a90282a26]// Definindo a porta de comunicação, essa é a padrão[/color:1a90282a26]
NMSMTP1.Host := Edit1.Text; [color=olive:1a90282a26]// Seta o Endereço do Host.[/color:1a90282a26]
NMSMTP1.UserID := Edit2.Text; [color=olive:1a90282a26]// Nome do usuario[/color:1a90282a26]
NMSMTP1.PostMessage.FromAddress := Edit3.Text; [color=olive:1a90282a26]// Origem[/color:1a90282a26]
NMSMTP1.PostMessage.ToAddress.Add(Edit4.Text); [color=olive:1a90282a26]// o Destino[/color:1a90282a26]
NMSMTP1.PostMessage.Subject := Edit5.Text; [color=olive:1a90282a26]// o Assunto.[/color:1a90282a26]
NMSMTP1.PostMessage.Attachments.Add(Edit6.text); [color=olive:1a90282a26]// o Anexo[/color:1a90282a26]
NMSMTP1.PostMessage.Body.Assign(Memo1.Lines); [color=olive:1a90282a26]// Mensagem do email[/color:1a90282a26]
NMSMTP1.Connect; //Conecta com o host
NMSMTP1.SendMail; [color=olive:1a90282a26]// envia o email.[/color:1a90282a26]
NMSMTP1.Disconnect; [color=olive:1a90282a26]// desconecta e finaliza.[/color:1a90282a26]
[b:1a90282a26]end;[/b:1a90282a26]
----------
Obs, localizei os topicos relacionados a esse assunto aqui no forum e deu mais de mil.. nao tive paciencia de olha, preferir postar e assim, nao so a minha, tirar a dúvida de outros.
Espero ter me expressado bem..
Agradeco desde ja..
Atenciosamente
oTTo Husckows :shock:
Seek
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)