Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.
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 CDOSYSobjCDOSYSMail.Bcc="destinatario1@dominio.com, destinatario2@dominio.com"
Funciona pra mandar pra mais de um usuário oculto???
Se não, como devo proceder?
dependendo do provedor, alguns limitam em 10 emails outros 25 , isso vai de acordo com a politica de spam de cada um
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?
mesmo procedimento para enviar no .to
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" ?
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 = NothingobjCDOSYSMail.Bcc="destinatario1@dominio.com; destinatario2@dominio.com; destinatario3@dominio.com; destinatario4@dominio.com"
Está certo isso?
exemplo
objEmail.to = "blah@hotmail.com;blah@yahoo.com;bob@hotmail.com"
Pra BCC,
objCDOSYSMail.Bcc = "blah@hotmail.com;blah@yahoo.com;bob@hotmail.com"
Tb está certo?
você envio, o email, veifique se esta tudo OK
objCDOSYSMail.Bcc="destinatario@dominio.com"