SetFrom

Establece la dirección del remitente del mensaje de correo.

Descripción

Nota: Este método sólo es para VBScript. No está disponible para Perl.

Cuando utilice un objeto CQMailMsg para enviar correo electrónico:

El objeto CQMailMsg se puede utilizar en un enganche, y el enganche se puede ejecutar en un servidor web o en un cliente de ClearQuest instalado. Puesto que en estos dos casos la identidad del proceso no es la misma, la información disponible puede ser diferente en estas dos situaciones para el agente de transporte de correo (para Windows) o el programa sendmail (para los sistemas UNIX y Linux) para determinar lo que se incluye en la dirección De. Puede utilizar el método SetFrom para especificar un nombre (como, por ejemplo, el valor de retorno del método GetUserEmail del objeto Session), pero el agente de transporte de correo o la configuración de sendmail pueden modificar o reemplazar dicho valor.

Nota: El método SetFrom no tiene efecto cuando se utiliza MAPI. Al enviar correo electrónico de SMTP en un servidor web, el dominio y el nombre del servidor se pueden incluir en la parte "De" del mensaje (dependiendo del modo en el que se haya configurado el programa sendmail) en lugar de la dirección de correo electrónico del usuario de Rational ClearQuest a menos que se utilice, explícitamente, SetFrom.
Atención: El soporte Rational ClearQuest Email 1.x y MAPI está en desuso. Para obtener soporte ampliado de correo electrónico, utilice el paquete EmailPlus 2.1. Para obtener más información, consulte el apartado Paquete EmailPlus.

Sintaxis

VBScript

MailMsg.SetFrom returnAddress 
Identificador
Descripción
MailMsg
Un objeto Mail Message que representa el mensaje de correo que se va a enviar.
returnAddress
Serie con la dirección de correo electrónico para añadir al campo De del mensaje de correo.
Valor de retorno
Ninguno.

Ejemplos

VBScript

Dim OleMailMsg

' Session and logon needed if GetUserEmail is used. For example, 
' Dim sessionObj
' Set sessionObj = GetSession
' sessionObj.UserLogon loginname, password, dbName, AD_PRIVATE_SESSION, ""

Set OleMailMsg = CreateObject("PAINET.MAILMSG")

msg_from = "admin@example.com"
OleMailMsg.SetFrom(msg_from)

msg_to = "admin@example.com"
OleMailMsg.AddTo(msg_to)

' You must log in to a database session if GetUserEmail is used.
msg_cc = "user_email_address"
' Or this: msg_cc = sessionObj.GetUserEmail
OleMailMsg.AddCc(msg_cc)

msg_subject = "Hello"
OleMailMsg.SetSubject(msg_subject)

msg_body = "This message brought to you from cqole!\n"
OleMailMsg.SetBody(msg_body)

OleMailMsg.Deliver 

Feedback