Enviar E-mail com CDO

Question

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),...

Diviex · Answer

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

Paulocesar1301 · Answer

...�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�!)

Paulocesar1301 · Answer

:wink: sobe :wink:...

Thomaz_prg · Answer

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....

Paulocesar1301 · Answer

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

Thomaz_prg · Answer

Aparentemente � um objeto OLE.. tente cri�-lo pelo delphi....

Paulocesar1301 · Answer

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

F�rum Enviar E-mail com CDO #328775