22/07/2004, 01:42
|
| | | Fecha de Ingreso: mayo-2004 Ubicación: Madrid
Mensajes: 22
Antigüedad: 20 años, 9 meses Puntos: 0 | |
| Tengo hecha esta función
Añade primero el componente: "Microsoft CDO for Exchange 200 Library"
Sub EnviarCDO(parCorreoA As String, parAsunto As String, parCuerpo As String)
Dim cd As CDO.Message
Set cd = New CDO.Message
cd.Subject = parAsunto
cd.To = parCorreoA
cd.TextBody = parCuerpo
cd.Send
Set cd = Nothing
End Sub |