MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    envio de e-mail

    Compartilhe

    poy
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 10/01/2012

    envio de e-mail

    Mensagem  poy em Seg 17 Fev 2014, 03:36

    Tenho uma rotina , descrita abaixo, para enviar e-mail através do sistema.

    No entanto, ocorre erro "Servidor not avaiable"

    Os parâmetros estão todos corretos.

    Onde estou errando ?

    With Config



    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
    .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") = False
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = emailremetente
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SENHA
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 120


    .Fields.Update
    End With

    Set Mens = New CDO.Message
    With Mens
    Set .Configuration = Config

    fromnome = emailremetente
    .From = fromnome


    sendernome = nomeusuario
    .Sender = sendernome

    mailremetente = emailremetente
    replynome = mailremetente
    .ReplyTo = replynome

    .BodyPart.Charset = "utf-8"

    DIAPROCESS = Combinação29.Value

    .Subject = "Caixa do dia " & DIAPROCESS & "/" & MesProcess & "/" & AnoProcess & " " & Empresa


    .HTMLBody = " "
    nometo = nomedestinatario
    .To = nometo
    comcopia = comcopia
    .CC = comcopia
    caminho = CurrentProject.path & "/pdf/fluxototalizado.pdf"
    .AddAttachment (caminho)
    caminho = CurrentProject.path & "/pdf/resumofinal.pdf"
    .AddAttachment (caminho)
    caminho = CurrentProject.path & "/pdf/Movimentocaixa.pdf"
    .AddAttachment (caminho)


    .Send
    End With

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    envio de e-mail

    Mensagem  good guy em Seg 17 Fev 2014, 09:41

    Olá poy,

    Tente corrigir o teu código por este que funciona:

    Public Function send_email()

    Set cdomsg = CreateObject("CDO.message")
    With cdomsg.Configuration.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mygmail@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
    .Update
    End With
    ' build email parts
    With cdomsg
    .To = "somebody@somedomain.com" 'Para = email do destinatário
    .From = "mygmail@gmail.com" 'De = Seu email
    .Subject = "the email subject" 'Assunto = Descreva o assunto
    .TextBody = "the full message body goes here. you may want to create a variable to hold the text" 'Corpo = "o corpo da mensagem vai aqui. Você pode desejar criar uma variável para armazenar o texto"
    .Send 'Enviar
    End With
       Set cdomsg = Nothing
    End Function

    Fonte: [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 03 Dez 2016, 07:36