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

    Erro em Anexo no Email

    Compartilhe

    microfit
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 06/12/2016

    Erro em Anexo no Email

    Mensagem  microfit em 6/1/2018, 00:24

    Bom dia Presados(as)
    Meu codigo esta dando erro no envio de anexo, abaixo o código:

    Erro de compilaçao: Argumento nao é opcional

    Function EnviarEmail()
    On Error GoTo erromail
    Dim Mens As CDO.Message
    Dim Config As CDO.Configuration


    Set Config = New CDO.Configuration

    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR DE EMAIL" 'seu servidor de e-mail
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' porta usada pelo seu servidor de e-mail
    .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
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USUARIO" 'user do servidor
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SENHA" 'coloque a 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 = "Eracles Soluçoes em Identificaçao" 'quem envia

    If Not IsNull(Me.TxtEmailVendedor) Then
    .Sender = Me.TxtEmailVendedor 'email de quem envia.
    End If

    .Subject = Me.Txt_Tratativa 'caixa texto assunto
    .TextBody = Me.TxtCorpo 'Caixa texto com o texto"

    If Not IsNull(Me.TxtEmail) Then
    .To = Me.TxtEmail 'caixa texto para quem vai o email"
    End If

    If Not IsNull(Me.TxtLayout) Then
    .AddAttachment = Me.TxtLayout
    End If


    .Send ' envia

    End With

    MsgBox "Menssagem enviada com sucesso"

    Set Mens = Nothing
    Set Config = Nothing
    Exit Function

    erromail:
    MsgBox Err.Number & " " & Err.Description
    Set Mens = Nothing
    Set Config = Nothing
    Exit Function

    End Function

    Grande abraço a todos!
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6804
    Registrado : 05/11/2009

    Re: Erro em Anexo no Email

    Mensagem  Alexandre Neves em 7/1/2018, 10:30

    Boa tarde,
    O código indica que está num formulário (com a expressão Me). Se não estiver num formulário, retire essa expressão


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 20/7/2018, 09:47