| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
MaisaCaceres
Novato
Registrado: Terça-Feira, 13 de Abril de 2010
Mensagens: 2
|
 Enviada: Ter Abr 13, 2010 5:44 pm Assunto: Problemas ao enviar e-mail com Anexo |
 |
|
Pessoal onde eu posso baixar a versão do indy 10???
É porque estou com problemas para enviar e-mail com anexo.
Dei uma pesquisada aqui no fórum e meu código está da forma correta ó:
| Código: | SMTP.Host := SRVSMTP;
SMTP.Port := StrToInt(PORTA);
SMTP.Username := USUARIO;
SMTP.Password := SENHA;
MSG := TIdMessage.Create(nil);
// Dados do remetente.
MSG.From.Address := DE; // De - email
MSG.From.Name := DE; // De - Nome
// Destinatarios
MSG.Recipients.EMailAddresses := PARA; // Para
MSG.CCList.EMailAddresses := CC; // Com cópia - Cc
MSG.BccList.EMailAddresses := CCO; // Cópia oculta - Cco
// Conteudo da Mensagem
MSG.Subject := ASSUNTO; // Assunto
MSG.ContentType := 'text/html';
MSG.MessageParts.Clear;
MSG.Body.Text := Mensagem; // Mensagem
if Anexos <> nil then begin
//Tratando os arquivos anexos
For xAnexo := 0 to Anexos.Count-1 do
TidAttachmentFile.Create(MSG.MessageParts, TFileName(Anexos[xAnexo]));
end;
result := True;
SMTP.Connect;
Try
try
SMTP.Send(MSG);
Except on e: Exception do
begin
showmessage(e.Message);
result := false;
end;
end;
Finally
SMTP.Disconnect;
End; |
Com esse código eu não consigo enviar e-mail com anexo.
Ele até envia o e-mail, mas o e-mail chega com alguns caracteres no corpo dele como se o arquivo fizesse parte do corpo do e-mail.
| Código: | | This is a multi-part message in MIME format --a7PK4e3gKR4R6tnI5xVxpCDq=_c56DwulH Content-Type: text/plain Content-Transfer-Encoding: 8bit |
Por isso estou achando que pode ser a versão do Indy que está com problemas. Não sei falar se a versão que tenho aqui é a nativa do Delphi.
Alguém pode me ajudar????  |
|
| Voltar ao Topo |
|
 |
MaisaCaceres
Novato
Registrado: Terça-Feira, 13 de Abril de 2010
Mensagens: 2
|
| Enviada: Qua Abr 14, 2010 9:31 am Assunto: |
|
|
Não?
Ninguém? |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
