** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - CORREO: Sencillo Sub de envío de correo Outlook
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCORREO: Sencillo Sub de envío de correo Outlook

 Responder Responder
Autor
Mensaje
buho Ver desplegable
Administrador
Administrador
Avatar
Abuelo FELIZ, nieto desesperado

Unido: 10/Abril/2004
Localización: Valladolid
Estado: Sin conexión
Puntos: 11321
Enlace directo a este mensaje Tema: CORREO: Sencillo Sub de envío de correo Outlook
    Enviado: 10/Agosto/2013 a las 08:08
Pues eso...un sencillo procedimiento para el envío de emails mediante automatización con Outlook.
Recuerdo que el Ms Outlook pide conformidad de envío por defecto, para evitar replicacion de virus.
Va codigo:

Option Base 1
Sub EnvioCorreo()
    Dim OutLookApp As Object
    Dim Msg As Object
    Dim Pie As Object
    Dim Dire(2) As String
    Dim X As Long
    Dim TxtHTMLCab As String
    Dim TxtHTMLPie As String
    Open "C:\cabecera.txt" For Input As #1
    TxtHTMLCab = Input(3450, #1)
    Close #1
    Open "C:\piefirma.txt" For Input As #1
    TxtHTMLPie = Input(1432, #1)
    Close #1
    Dire(1) = "paco@nada.es"
    Dire(2) = "buhonews@servidor.com"
    Set OutLookApp = New Outlook.Application
    For X = 1 To 2
        Set Msg = OutLookApp.CreateItem(olMailItem)
        Msg.Subject = "Esto es el asunto"
        Msg.HTMLBody = TxtHTMLCab & "<html>" & Dire(X) & "</html>" & TxtHTMLPie
        Msg.To = Dire(X)
        Msg.Attachments.Add "C:\cabecera.txt"
        Msg.Attachments.Add "C:\piefirma.txt"
        Msg.Send
    Next X
    Set Msg = Nothing
    Set OutLookApp = Nothing
    MsgBox "Fin de envio"
End Sub
Por fin he hecho algo bueno, ser abuelo ¡y porque no lo he hecho yo!
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable