16/07/2002, 06:24
|
| | | Fecha de Ingreso: julio-2002
Mensajes: 2
Antigüedad: 22 años, 4 meses Puntos: 0 | |
| Re: Expertos. Biblioteca SENDMAIL.DLL
Para enviar mensajes desde Access con Outlook haz lo siguiente:
------
Private Sub ENVIAR_Click()
On Error GoTo ErrorEnvio
Dim CuerpoMsg As String
Dim Mensaje As MailItem
Set Mensaje = Outlook.Application.CreateItem(olMailItem) 'Podría ser un olTaskItem ...
Mensaje.To = "Dirección e-mail del destinatario"
Mensaje.Body = "Cuerpo del mensaje que quieras que sea enviado."
Mensaje.Subject = "Texto que aparece en 'asunto'"
Mensaje.Send
Set Mensaje = Nothing
Exit Sub
ErrorEnvio:
MsgBox "Se ha producido un error en el envío del correo electrónico.", vbCritical
End Sub
---------
Acuérdate de selcionar en 'Herramientas - referencias' la referencia a 'Microsoft Outlook 9.0 Object Library'
Además de correos puedes mandar tareas, convocatorias de reunión ... Busca en las propiedades y métodos de los objetos con el examinador de objetos para ver todo su potencial. (Conectar con excel ... es igual)
|