envio de mails

mymsystemas · #1 (**permalink**) 15/12/2006, 10:09

hola
quisiera enviar unos datos de una tabla por mail y no se como hacerlo, ya probe dos o tres codigos pero no me funcionan.
el cliente de correo que utilizo es Outlook 2003 ya que la empresa tiene un Exchange como servidor de correos.
mi idea es obtener desde una tabla las direcciones de correo a enviar y adjuntarle un archivo de excel que se crea desde un procedimiento en VB.
la idea es que se dispare automaticamente sin intervencion del usuario para no complicarle la vida-si alguien puede darme una idea o tiene algun codigo que pueda adaptar me vendria muy bien
desde ya mychas gracias a todos
saludos cordiales

ci2000 · #2 (**permalink**) 15/12/2006, 11:03

Hola, debes colocar en el form un MAPISession1 y un MAPIMessages1.

Código:

        MAPISession1.SignOn
        With MAPIMessages1
            .MsgIndex = -1
            .RecipDisplayName = "[email protected]"
            .MsgSubject = "Este es el asunto"
            .MsgNoteText = "Este es el mensaje."
            .SessionID = MAPISession1.SessionID
            .ResolveName
            .AttachmentIndex = 0
            .AttachmentName = "Archivo1.zip"
            .AttachmentPathName = "C:\Archivo1.zip"
            .AttachmentIndex = 1
            .AttachmentName = "Archivo2.xls"
            .AttachmentPathName = "C:\Archivo2.xls"
            .AttachmentPosition = 0
            .AttachmentType = 0
            .Send
        End With
        MAPISession1.SignOff

Espero te sirva.
Saludos

inindigo · #3 (**permalink**) 27/05/2008, 16:29

Hola, perdonad, pero estoy con un problema similar.

Gracias al código de ci2000, ya consigo enviar mensajes desde vb.

Pero no sé cómo modificarlo para poder enviar el mismo mensaje a varios destinatarios.

Un saludo y gracias.