Fórum Como mandar e-mail no intraweb 5 #194926

olá amigo,
por acaso conseguisse resolver teu problema?
Também estou precisando enviar e-mal com intraweb....
Se puderes ajudar agradeço!

Boa Noite

Na verdade fiz a mesma solicitação neste forum e tive meu problema resolvido da seguinte forma (usando Delphi 7).

> paleta IndyClients o componente IdSMTP
> paleta IndyMisc o componente IdMessage

Esses componentes vc pode adicionar normalmente no IWForm.

*****************************************************

[color=blue:2f65f1648d]// Mensagem
IdMsgSend.Subject := ´aqui vai o assunto´;
IdMsgSend.Body.Text := ´aqui vai o texto, que pode originar de um IWText, por exemplo´;

// Remetente
idMsgSend.From.Address := ´remetente@empresa.com.br´;
idMsgSend.From.Name := ´remetente fulano de tal´;
IdMsgSend.ReplyTo.EMailAddresses := ´remetente@empresa.com.br´;

// Destinatario
IdMsgSend.Recipients.EMailAddresses := ´destinatario@empresa.com.br´;

// Copias
//idMsgSend.CCList.EMailAddresses := ´copia1@teste.com.br, teste@terra.com.br´;

// Copias Ocultas
//idMsgSend.BccList.EMailAddresses := ´copia2@teste.com.br; teste@terra.com.br´;

// Anexa um arquivo
TIdAttachment.Create(idMsgSend.MessageParts,´c:\autoexec.bat´);
TIdAttachment.Create(idMsgSend.MessageParts,´c:\config.sys´);


// Autenticacao - Use apenas quando o servidor exigir
{ IdSMTP.AuthenticationType := atLogin;
IdSMTP.Username := ´usuario´;
IdSMTP.Password := ´senha´; }

// Dados do Servidor
IdSMTP.Host := smtp.empresa.com.br´;
IdSMTP.Port := 25;

IdSMTP.Connect;

try
IdSMTP.Send(IdMsgSend);
finally
IdSMTP.Disconnect;
end;[/color:2f65f1648d]


ok


Avila

Avila,
Muito obrigado. Vou tentar fazer amanhã.
Agradeço realmente a sua boa vontade em ajudar.
Um grande abraço!