Pessoal, Feliz 2007 e um grande abraço para Todos.
Como sempre, venho recorrer a ajuda de vocês.
Estou usando a rotina abaixo para enviar email, com anexo, no Delphi 5. Quando
não uso anexo, o email é enviado com sucesso mas quando anexo algum arquivo o
email não chega ao destino.
OBS: Ao executar o programa não é dado nenhum sinal de erro.
Desde já agradeço a Todos
ROTINA USADA:
var inPos: Integer;
begin
IdSMTP.AuthenticationType := atlogin;//Conexão com autenticação
IdSMTP.Host := TRIM(edtHost.Text) ; // 'smtp.diagramaba.com.br';
IdSMTP.Password := 'pa3725'; //senha
IdSMTP.Port := 25; //porta é sempre essa não mude isso
IdSMTP.Username := '[EMAIL PROTECTED]';
IdMessage.From.Name := TRIM(edtDE.Text); // '[EMAIL PROTECTED]';
IdMessage.Recipients.EMailAddresses := TRIM(edtPara.Text); // EMAIL DESTINO
IdMessage.CCList.EMailAddresses := TRIM(edtCC.Text);
IdMessage.BccList.EMailAddresses := TRIM(edtBCC.Text);
case cbPrioridade.ItemIndex of
0: IdMessage.Priority := mpHigh;
1: IdMessage.Priority := mpNormal;
2: IdMessage.Priority := mpLow;
end;
IdMessage.Subject := TRIM(edtAssunto.Text);
IdMessage.Body.Clear;
IdMessage.Body.Text := TRIM(mmTexto.Lines.Text);
if cbConfirma.Checked then
IdMessage.ReceiptRecipient.Text := TRIM(IdMessage.From.Text);
for inPos := 0 to mmAnexos.Lines.Count - 1 do
begin
if TRIM(mmAnexos.Lines.Strings[inPos]) <> '' then
TIdAttachment.Create(IdMessage.MessageParts,
TFileName(TRIM(mmAnexos.Lines.Strings[inPos])));
end;
try
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
except
On E: Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
[As partes desta mensagem que não continham texto foram removidas]
