Macro enviar correos electrónicos excel o access
Requiero una rutina para enviar correos electrónicos desde bases de datos le agradezco a la persona que pueda ayudarme.
1 respuesta
Respuesta de rsanti
1
Primero debes ir en el Editor de VBA a Herramientas/Referencias... y marcar Micosoft Outlook 10.0 Object Library
Quizá te pueda servir una rutina como ésta adaptándola a tu caso:
Private Sub EnviarCorreo()
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
'Crea una sesion de Microsoft Outlook
Set appOutlook = CreateObject("outlook.application")
'Crea un nuevo mensaje
Set message = appOutlook.CreateItem(olMailItem)
'Asunto, Texto, Destinatarios, Datos adjuntos del mensaje
With message
.Subject = "FOTOS PRESTADAS"
.Body = "Prueba para enviar con un adjunto"
'"Sandoval Altelarrea Vicente"
.Recipients.Add ("[email protected]")
.Attachments.Add ThisWorkbook.Path & "\" _
& ThisWorkbook.Name
'Envía el mensaje
.Send
End With
'Abandona la aplicación Outlook
AppOutlook. Quit
'Reinicia el objeto
Set appOutlook = Nothing
'Worksheets("Hoja1"). PrintOut 'Correcto
'ActiveSheet. PrintOut 'Correcto
ActiveWorkbook. Close
End Sub
Quizá te pueda servir una rutina como ésta adaptándola a tu caso:
Private Sub EnviarCorreo()
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
'Crea una sesion de Microsoft Outlook
Set appOutlook = CreateObject("outlook.application")
'Crea un nuevo mensaje
Set message = appOutlook.CreateItem(olMailItem)
'Asunto, Texto, Destinatarios, Datos adjuntos del mensaje
With message
.Subject = "FOTOS PRESTADAS"
.Body = "Prueba para enviar con un adjunto"
'"Sandoval Altelarrea Vicente"
.Recipients.Add ("[email protected]")
.Attachments.Add ThisWorkbook.Path & "\" _
& ThisWorkbook.Name
'Envía el mensaje
.Send
End With
'Abandona la aplicación Outlook
AppOutlook. Quit
'Reinicia el objeto
Set appOutlook = Nothing
'Worksheets("Hoja1"). PrintOut 'Correcto
'ActiveSheet. PrintOut 'Correcto
ActiveWorkbook. Close
End Sub
Recibí tu respuesta analizando a primera vista observo que puede ser útil la voy a probar con unos correos y te comento muchas gracias por tu aporte.
