MaximoAccess

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

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 - 7: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
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    envio de e-mail

    Mensagem  good guy em Seg 17 Fev - 13: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: Qua 28 Jun - 13:33