WD: Macro de ejemplo para enviar comandos de correo electrónico utilizando MAPI

Seleccione idioma Seleccione idioma
Id. de artículo: 180631 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

Resumen

En este artículo incluye un ejemplo Visual Basic para aplicaciones macro que utiliza comandos MAPI para enviar un mensaje de correo electrónico.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita, incluyendo, pero sin limitarse a, las garantías implícitas de comerciabilidad e idoneidad para un propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y las herramientas utilizadas para crear y depurar procedimientos. Los profesionales de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos a necesidades específicas.
Si tiene poca experiencia en programación, desea póngase en contacto con un Microsoft Certified Partner o servicios de consultoría de Microsoft. Para obtener más información, visite estos sitios Web de Microsoft:

Microsoft certificado Partners - https://partner.microsoft.com/global/30000104

Servicios de asesoramiento de Microsoft - http://support.microsoft.com/gp/advisoryservice

Para obtener más información acerca de las opciones de soporte técnico que están disponibles y cómo ponerse en contacto con Microsoft, visite el siguiente sitio Web de Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSEl siguiente ejemplo Visual Basic para aplicaciones macro utiliza comandos MAPI para enviar un mensaje de correo electrónico. La macro utiliza la función InputBox para recopilar información para texto del mensaje de destinatarios, asunto y correo electrónico. Estas funciones pueden reemplazarse con cadenas de texto válido para evitar pedir al usuario la información.
Sub MapiSendMail()
   Dim objSession As Object
   Dim objMessage As Object
   Dim objRecipient As Object
   Dim sProfile As String
   Dim sSubjPrmpt As String
   Dim sTextPrmpt As String
   Dim sEmailPrmpt As String
   Dim sMsgTitle As String
   ' Leaving sProfile equal to Null will
   ' force the user to select which Mapi
   ' profile to use. To keep from being
   ' prompted, you must supply a valid
   ' user profile.
   sProfile = ""
   sEmailPrmpt = "Enter valid Email Name of message recipient:"
   sSubjPrmpt = "Enter the subject line for this message:"
   sTextPrmpt = "Enter the text for this message:"
   sMsgTitle = "Mapi Macro Example"
   ' Create the Session Object.
   Set objSession = CreateObject("mapi.session")
   ' Log on using the session object.
   ' Specify a valid profile name if you want to
   ' avoid the logon dialog box.
   objSession.Logon profileName:=sProfile
   ' Add a new message object to the OutBox.
   Set objMessage = objSession.Outbox.Messages.Add
   ' Set the properties of the message object.
   objMessage.Subject = InputBox(sSubjPrmpt, sMsgTitle)
   objMessage.Text = InputBox(sTextPrmpt, sMsgTitle)
   ' Add a recipient object to the objMessage.Recipients collection.
   Set objRecipient = objMessage.Recipients.Add
   ' Set the properties of the recipient object.
   objRecipient.Name = InputBox(sEmailPrmpt, sMsgTitle)
   objRecipient.Resolve
   ' Send the message. Setting showDialog to False
   ' sends the message without displaying the message
   ' or requiring user intervention. A setting of True
   ' displays the message and the user must choose
   ' to Send from within the message dialog.
   objMessage.Send showDialog:=False
   MsgBox "Message sent successfully!"
   ' Log off using the session object.
   objSession.Logoff
End Sub
				
para obtener más información acerca de cómo obtener ayuda con Visual Basic para aplicaciones, consulte el artículo siguiente en Microsoft Knowledge Base:
163435VBA: Recursos de programación para Visual Basic para aplicaciones

Propiedades

Id. de artículo: 180631 - Última revisión: domingo, 09 de febrero de 2014 - Versión: 2.3
La información de este artículo se refiere a:
  • Microsoft Word 97 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbhowto kbinterop KB180631 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): 180631

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