MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Problemano enviar E-mail

    GCONTABIL
    GCONTABIL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 17/12/2011

    [Resolvido]Problemano enviar E-mail Empty [Resolvido]Problemano enviar E-mail

    Mensagem  GCONTABIL 2/9/2014, 02:46

    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


    GCONTABIL
    GCONTABIL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 17/12/2011

    [Resolvido]Problemano enviar E-mail Empty Resolvido

    Mensagem  GCONTABIL 2/9/2014, 05:11

    Resolvi o problema com este código:

    Private Sub Enviar_Email_Click()

    Dim Mens As Object
    Dim Config As Object


    Set Mens = CreateObject("CDO.Message")
    Set Config = CreateObject("CDO.Configuration")

    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" ' stmp do seu servidor
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' porta smtp do seu servidor
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True ' True se requer SSL ou False se não requer
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "nfegcontabil@gmail.com" ' Seu usuário ou emial completo
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxx" ' Senha do seu Email
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.Update

    End With

    Set Mens = New CDO.message
    With Mens
    Set .Configuration = Config
    .From = "GContábil" ' Nome do remetente

    .Sender = Me.Email ' Email do destinatário


    .ReplyTo = "contgilson@msn.com" 'Email de resposta
    .BodyPart.Charset = "utf-8" 'É importante fornecer um sistema de codificação de acordo com o idioma.
    'Aqui, definimos o assunto da mensagem

    .Subject = "Interação no CRM nº: " & Me.CRM ' Título da mensagem

    .TextBody = "Olá, " & Me.[Razão Social] & vbCrLf _
    & vbCrLf _
    & "CRM: " & Me.[Ocorrencia] & vbCrLf _
    & "Status: " & Me.CRM_Status & vbCrLf _
    & vbCrLf _
    & "Última interação no CRM: " & Me.[Resposta] & vbCrLf _
    & "Realizado em: " & Me.Dt_final & vbCrLf _
    & vbCrLf _
    & "Atenciosamente," & vbCrLf _
    & vbCrLf _
    & "Gilson Batista de Oliveira" & vbCrLf _
    & "Contador CRC-CE 015890" & vbCrLf _
    & "wwww.gcontabil.com.br" & vbCrLf _
    & "CRM-Customer Relationship Management"


    .To = Me.Email ' Email para o qual a mensagem será enviada

    .Send

    End With

    Set Mens = Nothing
    Set Config = Nothing

    End Sub




      Data/hora atual: 8/11/2024, 05:56