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:


Seek

Seek

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar