Categorias

Enviar email utilizando o servidor de email da sua empresa

Se sua empresa tem um servidor de email, utilize o codigo abaixo para enviar email.
Você precisa estar conectado na rede da empresa.

<%
'Enviar email utilizando o servidor de Email da sua empresa
'procure ver com o administrador da rede qual é o ip do servidor de emails
'Exemplo: "
'smtpserver="10.12.45.8"

De_email = "[email protected]"
Para_Email = "[email protected]"
nome = session("Nome") 

msg="Coloque aqui o conteudo do email"

texto = "--------------------------------------------"&vbcrlf
texto = texto&"Nome: Testes"&vbcrlf
texto = texto&"E-mail: "&De_email&vbcrlf
texto = texto&"mensagem: "&msg&vbcrlf

sch = "https://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
 
With cdoConfig.Fields
	.Item(sch & "sendusing") = 2
    .Item(sch & "smtpserver") = "10.12.45.8"
    .update
End With
 
Set cdoMessage = CreateObject("CDO.Message")
 
With cdoMessage
	Set .Configuration = cdoConfig
    .From = De_email
    .To = Para_Email
'	.cc="cc_copia@cc_empresa.com.br"     '  Cópia
	'.Bcc="bcc_copia@bcc_empresa.com.br"     '  Cópia oculta
	.Subject = "Assunto do email"
	.TextBody = texto
    .Send
End With
 
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>