Enviar E-mail com CDO

Delphi

06/09/2006

Pessoal,
Estou transferindo um sisteminha desenvolvido em VBA para Delphi e verifiquei que o programador utilizou CDO para encaminhae e-mails de forma anônima (sem cair na caixa de saída do outlook), mas não achei um correspondente em Delphi.
Alguém já ouviu falar dessa técnica em Delphi ?

Abs e Bons Códigos :wink: ,


Paulocesar1301

Paulocesar1301

Curtidas 0

Respostas

Diviex

Diviex

06/09/2006

quando vc diz que ele mandou de forma anonima, vc esta querendo dizer que ele mandou o email sem se autentificar no servidor???


GOSTEI 0
Paulocesar1301

Paulocesar1301

06/09/2006

...´de forma anônima´ para quem recebe o e-mail... não chequei com a área de TI, mas acredito que no servidor le tenha algum tipo de informação do usuário.
Porém para quem recebe os e-mail encaminhados com a função, é possível colocar qualquer nome e o sistema de e-mail aceita como usuário válido e encaminha assim mesmo (mesmo se vc colocar a palavra ´desconhecido´!)


GOSTEI 0
Paulocesar1301

Paulocesar1301

06/09/2006

:wink: sobe :wink:


GOSTEI 0
Thomaz_prg

Thomaz_prg

06/09/2006

Amigo, posso estar enganado, mas para enviar email, alguns dos servidores SMTP não exigem autenticação, então, é só enviar um nome qualquer que ele aceita.


GOSTEI 0
Paulocesar1301

Paulocesar1301

06/09/2006

A grande questão é: Como implmentar isto com CDO ?

Hoje é feito assim em VBA, mas não consegui transportar para o Delphi:

... vejam que ela até indica o servidor mestre da empresa para encaminhar o e-mail, porém verifiquei com o pessoal de TI e não fica registro algum da transação ...
... meu sistema, e somente ele, terá todo esse controle (quem enviou ou deixou de enviar) ...
... de certa forma eu bem que gostei disso ... :wink: 

Public Sub EnvioDeEmailSemSeguranca(Assunto, CorpoDaMensagem, Para, CopiaPara, CopiaOcultaPara As String)
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
  iConf.Load -1    ´ CDO Source Defaults
  Set Flds = iConf.Fields
  With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MESCTX01RJORP" 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Update
  End With
 
  strbody = CorpoDaMensagem
 
  With iMsg
    Set .Configuration = iConf
    .To = Para
    .CC = CopiaPara
    .BCC = CopiaOcultaPara
    
    If NomedoUsuarioLogado = "" Then
      .From = """" & "Desconhecido" & """"
    Else
      ´.From = NomedoUsuarioLogado
      .From = "pcfernandes"
    End If
    
    .Subject = Assunto
    .TextBody = strbody
    .Send
  End With
 
  Set iMsg = Nothing
  Set iConf = Nothing
End Sub



GOSTEI 0
Thomaz_prg

Thomaz_prg

06/09/2006

Aparentemente é um objeto OLE.. tente criá-lo pelo delphi.


GOSTEI 0
Paulocesar1301

Paulocesar1301

06/09/2006

Eu até que tentei, mas ... :cry:


GOSTEI 0
POSTAR