Article View: comp.databases.ms-access
Article #301RE: Enviar e-mail
From: Amazing
Date: Sat, 12 Aug 2000 00:00
Date: Sat, 12 Aug 2000 00:00
54 lines
2509 bytes
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-mailReferences:
<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