Como mandar e-mail no intraweb 5
Estou com uma aplicacao em que apos cadastrar os dados preciso enviar para um determinado e-mail, alguem pode me ajudar??????
Macedo-fabio
Curtidas 0
Respostas
Czapelini
14/11/2003
olá amigo,
por acaso conseguisse resolver teu problema?
Também estou precisando enviar e-mal com intraweb....
Se puderes ajudar agradeço!
por acaso conseguisse resolver teu problema?
Também estou precisando enviar e-mal com intraweb....
Se puderes ajudar agradeço!
GOSTEI 0
Majavila
14/11/2003
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
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
GOSTEI 0
Czapelini
14/11/2003
Avila,
Muito obrigado. Vou tentar fazer amanhã.
Agradeço realmente a sua boa vontade em ajudar.
Um grande abraço!
Muito obrigado. Vou tentar fazer amanhã.
Agradeço realmente a sua boa vontade em ajudar.
Um grande abraço!
GOSTEI 0