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
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