Cópia Oculta no CDOSYS

[godoy89 0]

No meu código pra envio de e-mail via formulário tenho a seguinte linha:

 

objCDOSYSMail.To = "nome@provedor.com.br"

Essa linha faz o envio pro e-mail da pessoa

Gostaria de saber como faço pra enviar uma cópia OCULTA desse mesmo e-mail.

 

Obrigado,

Godoy.

[jrcardozo 4]

objCDOSYSMail.Bcc="destinatario@dominio.com"

[xanburzum 169]

use BBC

 

'Configura o Bcc(Com Cópia Oculta)

objCDOSYSMail.Bcc="destinatario@dominio.com"

 

 

<%
  Set oCdoMail = Server.CreateObject("CDO.Message")
  Set oCdoConf = Server.CreateObject("CDO.Configuration")

  with oCdoMail
    .From = "you@yourdomain.com"
    .To = "someone@domain.com; somebody@domain.com"
    .CC = "someone.else@domain.com"
    .BCC = "someone@anotherdomain.com"
  end with
%>

' *********************
    ' Utilizando o CDOSYS
    ' *********************
    If strComponenteEmail = "CDOSYS" Then
        Dim objCDOSYS
        Dim objCDOSYSConf
        Set objCDOSYS        = Server.CreateObject("CDO.Message") 
        Set objCDOSYSConf    = Server.CreateObject ("CDO.Configuration") 

        'Configurando o envio de e-mail
        objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP
        objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
        objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
        objCDOSYSConf.Fields.update 
        Set objCDOSYS.Configuration = objCDOSYSConf 


        objCDOSYS.From        = p_strEmailFROM
        objCDOSYS.To        = p_strEmailTO
        objCDOSYS.CC        = p_strEmailCC
        objCDOSYS.BCC        = p_strEmailBCC
        objCDOSYS.Subject    = p_strAssuntoEmail

        'Verificando o tipo de mensagem (default é TEXTO)
        If p_strTipoEmail = "HTML" Then
            objCDOSYS.HTMLBody    = p_strMensagem
        Else
            objCDOSYS.TextBody    = p_strMensagem
        End If

        'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
        Call objCDOSYS.Send
        If Err.Number = 0 Then
            EnviaEmail = "OK"
        Else
            EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
        End If

        'Destruindo Objetos
        Set objCDOSYSConf = Nothing
        Set objCDOSYS = Nothing

        If Err.Number <> 0 Then
            EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
        End If
        Exit Function
    End If 'Fim da Utilização do CDOSYS
End Function
%>


 

[godoy89 0]

objCDOSYSMail.Bcc="destinatario1@dominio.com, destinatario2@dominio.com"

Funciona pra mandar pra mais de um usuário oculto???

 

Se não, como devo proceder?

[xanburzum 169]

dependendo do provedor, alguns limitam em 10 emails outros 25 , isso vai de acordo com a politica de spam de cada um

[godoy89 0]

No meu caso, seria um .To e um .Bcc

Caso precise, 2 .Bcc (não mais do que isso, certeza)

 

Dessa forma que postei está certa? Separada por vírgula?

[xanburzum 169]

mesmo procedimento para enviar no .to

[godoy89 0]

Para mandar o mesmo e-mail do formulário pra duas pessoas, se separa o e-mail com "vírgula" ou "ponto e vírgula" ?

[xanburzum 169]

ponto e virgula, e dependendo do numero de emails k ira enviar, você pode coloca-los em um loop e chamar ele de um banco de dados, exe:

 

<%
Server.ScriptTimeout = 1000000
Set RS = Server.CreateObject("ADODB.Recordset")
Set RSBODY = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT * from Settings"
RSBODY.Open SQL2, Conn, 1, 3

SQL = "SELECT Email FROM List"
RS.open SQL, conn

Dim emailanterior : emailanterior = ""

    Do While Not RS.eof
       
        Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
        Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
        objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"
        objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
        objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
        objCDOSYSCon.Fields.update 
        Set objCDOSYSMail.Configuration = objCDOSYSCon 
        objCDOSYSMail.From = RSBODY("From_Email")
        objCDOSYSMail.To =  RS("Email")
        objCDOSYSMail.Subject = Request("Subject")
        If (Request("Format") = "Text") Then
            objCDOSYSMail.TextBody = Request("Body")
        Else
            objCDOSYSMail.HTMLBody = Request("Body")
        End If
        if rs("Email") <> emailanterior then    
              objCDOSYSMail.Send 
              emailanterior = rs("Email")
        end if
        RS.movenext    
    Loop

    Set objCDOSYSMail = Nothing 
    Set objCDOSYSCon = Nothing
%>

[godoy89 0]

objCDOSYSMail.Bcc="destinatario1@dominio.com; destinatario2@dominio.com; destinatario3@dominio.com; destinatario4@dominio.com"

Está certo isso?

[xanburzum 169]

exemplo

 

objEmail.to = "blah@hotmail.com;blah@yahoo.com;bob@hotmail.com"

[godoy89 0]

Pra BCC,

 

objCDOSYSMail.Bcc = "blah@hotmail.com;blah@yahoo.com;bob@hotmail.com"

Tb está certo?

[xanburzum 169]

você envio, o email, veifique se esta tudo OK