Envio de Correos a través de Outlook (De: )
Publicado por Antonio (3 intervenciones) el 08/02/2012 17:01:45
Buenos días amigos, tengo la siguiente duda con respecto al envío de correos desde progress utilizando el Outlook, no sé cómo colocar el De en un correo, es decir, puedo colocarle a quién se le envía, adjuntar archivos, el contenido, pero necesito colocarle el De: para que salga desde un correo
en particular, ya que un usuario tiene 2 correos en su máquina y deben salir por uno en específico.
El tema está en que debe salir por el correo secundario, no el predeterminado.
Muchas Gracias por la ayuda que me puedan suministrar.
Les adjunto parte del código:
en particular, ya que un usuario tiene 2 correos en su máquina y deben salir por uno en específico.
El tema está en que debe salir por el correo secundario, no el predeterminado.
Muchas Gracias por la ayuda que me puedan suministrar.
Les adjunto parte del código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CREATE "Outlook.application" chOutlook NO-ERROR. /* start Outlook */
IF ERROR-STATUS:ERROR THEN RETURN.
ASSIGN chNameSpace = chOutlook:GetNameSpace("MAPI":U) /*get namespace */
chFolder = chNameSpace:GetDefaultFolder(6) /*get email folder */
v_chMailItem = chFolder:Items:Add().
ASSIGN v_chMailItem = chFolder:Items:Add()
v_chMailItem:To = wkEnviar /*variable de correo destino */
v_chMailItem:CC = "ysalazar@nolver.com"
v_chMailItem:Subject = wkEncabezado /*Titulo del correo*/
v_chMailItem:body = wkContenido. /*Contenido*/
Attachment = v_chMailItem:Attachments.
Attachment:ADD(wkAdjunto).
v_chMailItem:Send() NO-ERROR.
RELEASE OBJECT Attachment NO-ERROR.
RELEASE OBJECT v_chMailItem NO-ERROR.
RELEASE OBJECT chFolder NO-ERROR.
RELEASE OBJECT chNameSpace NO-ERROR.
RELEASE OBJECT chOutlook NO-ERROR.
Valora esta pregunta
0
