Saltar al contenido

Ayuda con macro para enviar mensajes


Recommended Posts

publicado

Hola,

A partir de dos macros que encontré en el foro (disculpen no recuerdo a los autores) hice esta macro, pero me da un error de automatización.

Alguien que sepa VB me ayude porque apenas si entiendo esto.

La macro es para enviar correos a travez de outlook, la lista de correos y los nombre de los destinatarios están en dos columnas en excel.

Sub EnviaCorreo()
Dim myOLApp
Dim myOLItem
Dim olMailItem
Dim midire, minombre, miasunto As String
Dim Firma As String
Dim ts As Object
Dim fso As Object


'se establece la ruta de la firma
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile("C:\Users\Sergio\AppData\Roaming\Microsoft\Firmas\Sergio.htm").OpenAsTextStream(1, -2)
Firma = ts.readall
ts.Close


'Bucle para envio de varios correos
For i = 1 To 20


'datos del mail a enviar
midire = ActiveSheet.Range("B" & i).Value
minombre = ActiveSheet.Range("C" & i).Value
miasunto = ActiveSheet.Range("D1").Value


'se crea un objeto Outlook, Mail
Set myOLApp = CreateObject("Outlook.Application")


Set myOLItem = myOLApp.CreateItem(olMailItem)


'se establecen los campos del mensaje
With myOLItem
'campo A o Para
.To = midire
'campo Asunto
.Subject = miasunto
.BodyFormat = 2 'olFormatHTML
'cuerpo del mensaje
.HTMLBody = "<HTML> " & _
"<BODY>" & _
"<P>" & "Buenas tardes" & " " & minombre & "," & _
"</P> " & "Molesto tu atención ......" & _
"<P>" & _
"<P>" & "Hasta luego," & _
"<P>" & _
"<P>" & Firma & _
"</BODY> " & _
"</HTML>"


'enviar
.Send
End With


Next


'se liberan las variables creadas
Set myOLApp = Nothing
Set myOLItem = Nothing


End Sub[/CODE]

Gracias por la ayuda

publicado

El código lo veo bien, ya me pasó antes ese error, No olvides que debes crear una referencia a la biblioteca de MS Outlook desde Herramientas>Referencias>MS Outlook X Objet Library

Saludos desde Colombia

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.