Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Power Builder » redemption

Power Builder - redemption

Volver
Nuevo Tema
<<>>
 
Vista:

redemption

Publicado por Luis (47 intervenciones) el 07/10/2016 21:55:56
Hola, ¿alguien sabe cómo añadir una dirección de correo como en copia o copia oculta?

si por ejemplo, para añadir un correo en el "para" lo hago así:
oleSafeMailItem.Recipients.Add(ps_direcc[i])

no sé qué instrucción o propiedad me lo pondría en el CC o BCC

Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

redemption

Publicado por Luis (47 intervenciones) el 14/10/2016 10:34:06
La conexión es así:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
li_rc = this.ConnectToNewObject("outlook.application")
 
IF li_rc = 0 Then
	 oleSafeMailItem = create oleobject
	 li_rc = oleSafeMailItem.ConnectToNewObject("Redemption.SafeMailItem")
 
	 If li_rc = 0 Then
			oleTmp = create oleobject
			oleTmp = this.CreateItem(0)
			oleSafeMailItem.Item = oleTmp
	 Else
			oleSafeMailItem = this.CreateItem(0)
	 End If
ELSE
	 ls_error = "ERROR Conectando a Outlook Código " + String(li_rc)
	 GOTO FIN
END IF



Y el resto así:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
FOR i = 1 TO upperBound(ps_direcc)
	oleSafeMailItem.Recipients.Add(ps_direcc[i])
NEXT
 
IF NOT oleSafeMailItem.Recipients.ResolveAll THEN
	ls_error = 'ERROR en alguna de las direcciones de email'
	GOTO FIN
END IF
 
IF isNull(ps_subject) THEN
	oleSafeMailItem.Subject = ''
ELSE
	oleSafeMailItem.Subject = ps_subject
END IF
IF isNull(ps_body) THEN
	oleSafeMailItem.HTMLBody = ''
ELSE
	oleSafeMailItem.HTMLBody = ps_body
END IF
 
oleSafeMailItem.Display(TRUE)


Y necesito saber cómo agregar a alguien en copia y/o copia oculta.

Gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar