VB3: Cómo enviar un mensaje de correo mediante controles MAPI de Visual Basic

Seleccione idioma Seleccione idioma
Id. de artículo: 113033 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo se muestra cómo crear mediante programación un mensaje de correo de Microsoft y enviarla mediante los controles MAPI de Visual Basic. Puede utilizar esta técnica para automatizar el proceso de envío de mensajes.

Más información

Las ediciones profesionales de las versiones 2.0 y 3.0 vienen con el control personalizado MSMAPI.VBX, que contiene dos controles para crear Microsoft Mail (control de sesión MAPI y control de mensaje MAPI) de Visual Basic aplicaciones habilitan. El control de sesión MAPI se utiliza para manipular una sesión de Microsoft Mail y el control de mensaje MAPI se utiliza para crear y manipular mensajes de correo. Es posible utilizar estos dos controles para automatizar el proceso de enviar mensajes de correo.

En el ejemplo siguiente se muestra el uso de los controles MAPI para enviar mensajes. El ejemplo crea un mensaje de correo con datos adjuntos y envía a un destinatario.

Ejemplo paso a paso

  1. Inicie un proyecto nuevo de Visual Basic. Se creará Form1 de manera predeterminada.
  2. Agregar MSMAPI.VBX al proyecto.
  3. Agrega un MAPI controles de sesión (MAPISession1) y un mensaje MAPI (MAPIMessages1) al formulario.
  4. Agregue un botón de comando (Command1) al formulario.
  5. Ponga el siguiente código en el botón de comando de evento click.
       Sub Command1_Click ()
          'MAPI constants from CONSTANT.TXT file:
          Const SESSION_SIGNON = 1
          Const MESSAGE_COMPOSE = 6
          Const ATTACHTYPE_DATA = 0
          Const RECIPTYPE_TO = 1
          Const RECIPTYPE_CC = 2
          Const MESSAGE_RESOLVENAME = 13
          Const MESSAGE_SEND = 3
          Const SESSION_SIGNOFF = 2
    
          'Open up a MAPI session:
          MapiSession1.Action = SESSION_SIGNON
          'Point the MAPI messages control to the open MAPI session:
          MapiMessages1.SessionID = form1.MapiSession1.SessionID
    
          MapiMessages1.Action = MESSAGE_COMPOSE   'Start a new message
    
          'Set the subject of the message:
          MapiMessages1.MsgSubject = "This is the subject."
          'Set the message content:
          MapiMessages1.MsgNoteText = "This is the mail message."
    
          'The following four lines of code add an attachment to the message,
          'and set the character position within the MsgNoteText where the
          'attachment icon will appear. A value of 0 means the attachment will
          'replace the first character in the MsgNoteText. You must have at
          'least one character in the MsgNoteText to be able to attach a file.
          MapiMessages1.AttachmentPosition = 0
          'Set the type of attachment:
          MapiMessages1.AttachmentType = ATTACHTYPE_DATA
          'Set the icon title of attachment:
          MapiMessages1.AttachmentName = "System Configuration File"
          'Set the path and file name of the attachment:
          MapiMessages1.AttachmentPathName = "C:\CONFIG.SYS"
    
          'Set the recipients
          MapiMessages1.RecipIndex = 0                    'First recipient
          MapiMessages1.RecipType = RECIPTYPE_TO          'Recipient in TO line
          MapiMessages1.RecipDisplayName = "EddieSpaghetti"   'e-mail name
          MapiMessages1.RecipIndex = 1                  'add a second recipient
          MapiMessages1.RecipType = RECIPTYPE_TO        'Recipient in TO line
          MapiMessages1.RecipDisplayName = "TanyaLasagna"     'e-mail name
          MapiMessages1.RecipIndex = 2                   'Add a third recipient
          MapiMessages1.RecipType = RECIPTYPE_CC         'Recipient in CC line
          MapiMessages1.RecipDisplayName = "BlairAngelHair"  'e-mail name
          MapiMessages1.RecipIndex = 3                  'Add a fourth recipient
          MapiMessages1.RecipType = RECIPTYPE_CC          'Recipient on CC Line
          MapiMessages1.RecipDisplayName = "JoanieCannelloni" 'e-mail name"
    
          'MESSAGE_RESOLVENAME checks to ensure the recipient is valid and puts
          'the recipient address in MapiMessages1.RecipAddress
          'If the E-Mail name is not valid, a trappable error will occur.
          MapiMessages1.Action = MESSAGE_RESOLVENAME
          'Send the message:
          MapiMessages1.Action = MESSAGE_SEND
    
          'Close MAPI mail session:
          MapiSession1.Action = SESSION_SIGNOFF
       End Sub
    
    						
  6. Guarde el proyecto.
  7. Ejecutar el código y haga clic en el botón de comando.
El programa debe iniciar una sesión MAPI, crear un mensaje, enviar el mensaje y, a continuación, cierre la sesión.

Propiedades

Id. de artículo: 113033 - Última revisión: miércoles, 29 de octubre de 2003 - Versión: 2.0
La información de este artículo se refiere a:
  • Microsoft Visual Basic 2.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
Palabras clave: 
kbmt KB113033 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 113033
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com