Enviar mails

catty_peque
17 de Febrero del 2004
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

Daniel
17 de Febrero del 2004
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

catty_peque
17 de Febrero del 2004
muchas gracias...es de mucha ayuda... saludos... bye