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


    Envio de Email com erro

    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    Envio de Email com erro Empty Envio de Email com erro

    Mensagem  sergiosdl 20/7/2012, 21:57

    Caros colegas
    Estou estudando o exemplo do criquio sobre envio de email com varios anexos.
    O problema que estou tendo é que quando envio um e-mail, coloco no campo "DE" um nome diferente do endereço do email que esta enviando, no destinatario o email chega com os seguintes dados:
    se eu colocar "Sergio" chega para o destinatario "Sergio "@bart0058.email.locaweb.com.br
    meu dominio é da LOCAWEB, mas quando entro em contato com o suporte por nao conhcerem o sistema que esta enviando dizem que esta tudo ok nas configurações.
    O interessante é que quando envio utilizando minha conta do GMAIL da certo.

    Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .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") = "minhacontado@gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhasenha"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    .Fields.Update
    End With

    Set Mens = New CDO.Message
    With Mens
    Set .Configuration = Config
    .From = Me.txtNome ' este campo que da erro

    If Not IsNull(Me.txtPara) Then
    .Sender = Me.txtPara
    End If

    If Not IsNull(Me.txtCC) Then
    .CC = Me.txtCC
    End If

    If Not IsNull(Me.txtCCO) Then
    .BCC = Me.txtCCO
    End If

    .ReplyTo = "meuemail"

    .BodyPart.Charset = "utf-8"

    .Subject = Me.txtassunto

    If Me.grpTipos.Value = 1 Then
    .TextBody = Me.txtMensagem & vbCrLf & vbCrLf & "Assinatura" & vbCrLf & "Criquio Calavera"
    ElseIf Me.grpTipos.Value = 2 Then
    .HTMLBody = Replace(Me.txtMensagem, vbCrLf, "
    ") & "



    Atenciosamente.

    Criquio Calavera"
    ElseIf Me.grpTipos.Value = 3 Then
    .CreateMHTMLBody = Me.txtMensagem

    End If

    .To = Me.txtPara
    Dim L As Long
    If Me.lstAnexos.ListCount > 0 Then
    For L = 0 To Me.lstAnexos.ListCount - 1
    .AddAttachment Me!lstAnexos.Column(0, L)
    Next L

    Else
    End If
    .Send
    End With

    Set Mens = Nothing
    Set Config = Nothing

      Data/hora atual: 7/11/2024, 22:10