Crear mail desde Access
Milton Zafra Lizcano
de Access. Me gustaría poder generar el cuerpo del mensaje utilizando la
propiedad .bodyHtml a la que puedo hacer referencia pero no se como hacerlo.
En resumen, quiero poder generar un mail con graficas y mucho mas vistoso,
pero no se por donde atarcar el problema.
Gracias,
José Mª Fueyo
Sería interesante que nos pusieras como realzias el envío, para así
poder ver las posibilidades para el mismo.
Salu2
--
José Mª Fueyo
[MS MVP Access]
Milton Zafra Lizcano
Adjunto la rutina que utilizo, a la que paso 3 parametros:
Visualizar el mail
Nombre del destinatario
email
Function EnviarMail(DisplayMsg As Boolean, Destinata, DestiMail, Optional
AttachmentPath)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add(DestiMail)
objOutlookRecip.Type = olTo
Rem ' Add the CC recipient(s) to the message.
Rem Set objOutlookRecip = .Recipients.Add("")
Rem objOutlookRecip.Type = olCC
Rem ' Add the BCC recipient(s) to the message.
Rem Set objOutlookRecip = .Recipients.Add("")
Rem objOutlookRecip.Type = olBCC
' Set the Subject, Body, and Importance of the message.
.Subject = "Cotización #: " & Forms!Cotizacion!NumCotiza & ",
ExpoMartUSA."
.Body = Destinata & vbCrLf & vbCrLf & "Gracias por comunicarse con
nosotros. " & vbCrLf & vbCrLf & _
"A continuación presentamos nuestra cotización para el servicio de
compra de sus productos." & _
vbCrLf & vbCrLf & "El valor incluye todos los gastos hasta la
puerta de su casa, " & _
"e incluye un seguro por pérdida o daño grave de la mercancía hasta
por $100. " & _
"Para una cobertura mayor de seguro, este es necesario ordenarlo
antes del envío " & _
"y tiene un costo del 4% del valor asegurado." & vbCrLf & vbCrLf &
"Cordialmente, Orlando Torres."
.Importance = olImportanceHigh 'High importance
' Add attachments to the message.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If
' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next
' Should we display the message before sending?
If DisplayMsg Then
.Display
Else
.Save
.send
End If
End With
Set objOutlook = Nothing
End Function
Coloqué en comentarios el manejo de las copias del mail, pues por el momento
no las utilizo.
Consultando las propiedades del objeto objOutlookMsg de mi rutina, pude
observar que existe una propiedad llamada .HTMLBody, por eso supongo que por
este lado pueda estar la solución a mi inquietud.
Finalmente, quiero armar un mail vistoso y con links, para utilizar métodos
de pago.
Gracias.
"José Mª Fueyo" wrote:
> .
>
José Mª Fueyo
Tal como dices, el correo en formato html se configura en esa
propiedad. Y tendrás que crearte una variable de tipo string, y
construir el documento en dicho formato, para finalmente asignárselo.
Hace tiempo jugueteé con un componente smtp en www.ostrosoft.com, y
encontré éste hilo en su foro de consulta. Creo que te puede orientar
un poco
http://ostrosoft.com/forum/forum_posts.asp?TID=133&KW=html
Milton Zafra Lizcano
Creo que con el link que me envias y el Help de la Propiedad HTMLBody, tengo
un buen punto de partida.
Voy a estudiar estos dos temas y estaré informando como solucione el problema.
Gracias,
"José Mª Fueyo" wrote:
> .
>
Milton Zafra Lizcano
Creo que ya tengo solucionado este tema.
Para esto estoy mirando un curso de HTML disponible en la Web:
http://www.desarrolloweb.com/articulos/533.php
Este curso me parece práctico y sencillo.
Lo que estoy haciendo es crear el modelo de mail como si fuera una pagina
WEB y luego copio el código HTML a la variable string para que la rutina lo
arme y funciona.
Voy a perfeccionarlo y estare comentando.
Gracias,
Milton Zafra L.
"José Mª Fueyo" wrote:
> .
>