Estou utilizando o código para enviar um e-mail mais estar dando erro no .Send, pode verificar o que estar errado. Desde Já agradeço.
Dim Mens As Object
Dim Config As Object
Set Mens = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
With Config 'Abrimos o Config para a configuração
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com" ''Configuramos o servidor smtp
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 'Configuramos a porta do servidor 'Verifique a porta certa para o seu servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Configuramos o tipo de cliente. 2 indica uso do Outlook
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Configuramos o mecanismo de autenticação.
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Configuramos o envio de mensagem segura ou simples, usando True ou False
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gcontabil@hotmail.com.br" 'Configuramos o email a ser usado para o envio da mensagem
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha Email" 'Inserimos a senha do email usado na linha de cima
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'Configuramos o tempo da tentativa de conexão
.Fields.Update 'Atualizamos os campos
End With
Set Mens = New CDO.message 'Instanciamos a variável Mens como uma nova mensagem CDO
With Mens 'Abrimos a variável Mens para receber os dados
Set .Configuration = Config 'Instanciamos a configuração
.From = "Notificação CRM Cliente" 'Inserimos o nome ou um título de quem envia
If Not IsNull(Me.Email) Then 'Não é permitido nulo Email
.Sender = Me.Email 'Email que será usado para o envio da mensagem
End If
'É possível definir um email de resposta que será usado para receber uma resposta quando
'quem recebeu a mensagem clicar em Responder.
.ReplyTo = "contgilson@msn.com"
'É importante fornecer um sistema de codificação de acordo com o idioma.
.BodyPart.Charset = "utf-8"
'Aqui, definimos o assunto da mensagem
.Subject = "txtAssunto"
'Podemos definir o corpo da mensagem de três formas:
'Para enviar a mensagem em texto
'.TextBody = "Me.txtMensagem"
'Para enviar a mensagem em HTML
'.HTMLBody = "Me.txtMensagem"
'Também podemos enviar uma página da Internet, no lugar da mensagem
.CreateMHTMLBody "http://www.gcontbil.com.br"
'Aqui, colocamos o email para onde a mensagem deverá ser enviada
.To = Me.Email
'Envia a mensagem
.Send
'Fechamos a instrução para a variável Mens
End With
'Liberamos a variável Mens da memória
Set Mens = Nothing
'Liberamos a variável Config da memória
Set Config = Nothing
Dim Mens As Object
Dim Config As Object
Set Mens = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
With Config 'Abrimos o Config para a configuração
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com" ''Configuramos o servidor smtp
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 'Configuramos a porta do servidor 'Verifique a porta certa para o seu servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Configuramos o tipo de cliente. 2 indica uso do Outlook
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Configuramos o mecanismo de autenticação.
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Configuramos o envio de mensagem segura ou simples, usando True ou False
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gcontabil@hotmail.com.br" 'Configuramos o email a ser usado para o envio da mensagem
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha Email" 'Inserimos a senha do email usado na linha de cima
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'Configuramos o tempo da tentativa de conexão
.Fields.Update 'Atualizamos os campos
End With
Set Mens = New CDO.message 'Instanciamos a variável Mens como uma nova mensagem CDO
With Mens 'Abrimos a variável Mens para receber os dados
Set .Configuration = Config 'Instanciamos a configuração
.From = "Notificação CRM Cliente" 'Inserimos o nome ou um título de quem envia
If Not IsNull(Me.Email) Then 'Não é permitido nulo Email
.Sender = Me.Email 'Email que será usado para o envio da mensagem
End If
'É possível definir um email de resposta que será usado para receber uma resposta quando
'quem recebeu a mensagem clicar em Responder.
.ReplyTo = "contgilson@msn.com"
'É importante fornecer um sistema de codificação de acordo com o idioma.
.BodyPart.Charset = "utf-8"
'Aqui, definimos o assunto da mensagem
.Subject = "txtAssunto"
'Podemos definir o corpo da mensagem de três formas:
'Para enviar a mensagem em texto
'.TextBody = "Me.txtMensagem"
'Para enviar a mensagem em HTML
'.HTMLBody = "Me.txtMensagem"
'Também podemos enviar uma página da Internet, no lugar da mensagem
.CreateMHTMLBody "http://www.gcontbil.com.br"
'Aqui, colocamos o email para onde a mensagem deverá ser enviada
.To = Me.Email
'Envia a mensagem
.Send
'Fechamos a instrução para a variável Mens
End With
'Liberamos a variável Mens da memória
Set Mens = Nothing
'Liberamos a variável Config da memória
Set Config = Nothing