🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.databases.ms-access
Article #301

RE: Enviar e-mail

#301
From: Amazing
Date: Sat, 12 Aug 2000 00:00
54 lines
2509 bytes
Esto tambi�n se publico aqui. Usa VB para enviar el e-mail.

Buscando por
otros sitios, y por si os interesa a alguno, he encontrado la siguiente
forma de hacerlo desde access 97 empleando el MAPI de windows:

   MapiCorreo.UserName = "La persona que env�a el mensaje"
   MapiCorreo.NewSession = True

   MapiCorreo.DownLoadMail = True  ' o false si no deseas recibir
   MapiCorreo.SignOn
   MapiMensajes.SessionID = MapiCorreo.SessionID
   MapiMensajes.MsgIndex = -1         ' nuevo mensaje
   MapiMensajes.RecipDisplayName = "E-mail destino del mensaje"
   MapiMensajes.MsgSubject = "Asunto"
   MapiMensajes.MsgNoteText = "Texto Mensaje"

   ' anexar algun archivo al mail:
        MapiMensajes.AttachmentIndex = 0     ' numero del anexo, 0,1,2,3....
        MapiMensajes.AttachmentName = "Nombre del fichero adjunto"
        MapiMensajes.AttachmentPathName = "nombre y ruta del fichero
adjunto"
        MapiMensajes.AttachmentPosition = 0  ' numero del anexo, 0,1,2,3...
        MapiMensajes.AttachmentType = 0  ' archivo de datos
    ' enviarlo:

    MapiMensajes.Send
    ' finalizar el env�o de mensajes

    MapiCorreo.SignOff

No os olvid�is de adjuntar los controles "MappiMessages" (al que yo denomino
MapiMensajes) y  "MapiSession" (al que yo denomino MapiCorreo). Funciona a
la perfecci�n. Un saludo a todos.


Bonnin Sanso <jgomila@bonninsanso.com> escribi� en el mensaje de noticias
8mrv3l$bkp$1@diana.bcn.ttd.net...
> Hola,
>
> Sigo con la automatizaci�n de los programas, y quisiera enviar e-mails
> autom�ticamente desde access (indic�ndole todos los datos tales como
cuenta
> de correo, direcci�n del destinatario, asunto, mensage y datos adjuntos).
> Claro est� sin tener que confirmar nada.
>
> �Como tengo que hacerlo?
>
> Atentamente,
>
> Jordan Gomila
>
>
>
Technical Details
Message-ID: <399584a8_1@news.arrakis.es>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <8mrv3l$bkp$1@diana.bcn.ttd.net>

Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII
X-Google-Thread: 111a5a,3cd79b4ae34bc9d5
X-Google-Attributes: gid111a5a,public
X-Google-Thread: ff0ac,3cd79b4ae34bc9d5
X-Google-Attributes: gidff0ac,public
From: "Amazing" <Amazing@Smokers>
Subject: RE: Enviar e-mail
Date: 2000/08/12
Message-ID: <399584a8_1@news.arrakis.es>
X-Deja-AN: 657542684
References: <8mrv3l$bkp$1@diana.bcn.ttd.net>
X-Trace: 12 Aug 2000 19:08:56 +0100, 195.5.78.65
Organization: Arrakis Servicios y Comunicaciones SLU
X-MSMail-Priority: Normal
X-Priority: 3
Newsgroups: comp.databases.ms-access,es.comp.bd.ms-access
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300