Remitente con CDO.Message

[Yan Cantuarias]

Hola amigos, yo uso para enviar un mail el CDO.Message, pero cuando llega el
mail al destino, este aparece en el campo "De" el correo, me gustaria que
aparesca un nombre establecido... como por ejemplo en nombre del dueño del
correo... yo lo que uso es

Dim msg As CDO.Message
Set msg = New CDO.Message

With msg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = cHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =
cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
cUserName
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
cPassword
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

With msg
.From = cMail
.To = CorreoAEnviar
.Subject = MiSubject
.HTMLBody = MiBody
.Send
End With
Set msg = Nothing

[Rubén Vigón]

Hola Yan,

Sólo tienes que usar el siguiente formato:

"nombre" <usu...@servidor.com>

Por ejemplo:

With msg
.From = """Yan Cantuarias"" <yccc25NOS...@viabcp.com>"
.To = "angeli...@angelinajolie.com"
.Subject = "Las fotos de nuestra última velada (cuando Brad estaba de viaje)"
.Send
End With

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic
http://vigon.mvps.org

[Yuri Aponte]

ja,ja,ja,ja,ja,ja,ja..... Ya quisieran muchos ese tipo de Subject :-DDDD

--
Saludos desde Lima, Peru

Yuri Aponte
Analista de Sistemas
yuriPUNTOaponteARROBAapocalPUNTOcomPUNTOpe

"Rubén Vigón" <vigon...@ESTOmvps.org> escribió en el mensaje
news:%23t4g2so%23HHA...@TK2MSFTNGP04.phx.gbl...

[Yan Cantuarias]

jaja... muy buena...
gracias por la ayuda

"Rubén Vigón" <vigon...@ESTOmvps.org> escribió en el mensaje
news:%23t4g2so%23HHA...@TK2MSFTNGP04.phx.gbl...