Enviar mails
Hola a todos... necesito su ayuda nuevamente, me han solicitado enviar mail a un correo determinado teniendo en cuenta un archivo adjunto, por favor si alguien sabe como hacerlo... si conocen una pagina donde pueda encontrar ayuda o si tuvieran lgun ejemplo se los agradeceria muchisimo..
Saludos
Saludos
Private Sub EnviarCorreo(DireccionCorreo As String)
Dim Correo As New Outlook.Application
Dim Mensaje As Outlook.MailItem
Set Mensaje = Correo.CreateItem(olMailItem)
With Mensaje
.To = DireccionCorreo
.Subject = "Asunto del mensaje"
.Body = "CUERPO DEL MENSAJE"
.Attachments.Add "RUTA DEL ARCHIVO A ADJUNTAR"
.Importance = olImportanceHigh
.Send
End With
Set Mensaje = Nothing
Set Correo = Nothing
End Sub
Dim Correo As New Outlook.Application
Dim Mensaje As Outlook.MailItem
Set Mensaje = Correo.CreateItem(olMailItem)
With Mensaje
.To = DireccionCorreo
.Subject = "Asunto del mensaje"
.Body = "CUERPO DEL MENSAJE"
.Attachments.Add "RUTA DEL ARCHIVO A ADJUNTAR"
.Importance = olImportanceHigh
.Send
End With
Set Mensaje = Nothing
Set Correo = Nothing
End Sub