Notes「転送用エージェント」にヘッダを追加

質問

お世話になります。Notesメールの転送に関する質問です。

下記サイトを参考に受信したメールを転送しています。

http://www-06.ibm.com/jp/domino04/lotus/support/faqs/faqs.nsf/all/721795
補足情報 (Supporting Information)
サンプルエージェント「転送用エージェント」

これに、元のメールの「From」「宛先」「Cc」「Sent日時」「件名」を付けて
転送するにはどのようにしたらよろしいでしょうか。

Lotus Domino 6.5を使用しています。よろしくお願い致します。

回答No.1

gemini-a · ベストアンサー

こんな感じでどうですか

REM {転送用エージェント};

REM {フィールドの値を退避};
TempSubject := Subject;
TempSendTo := SendTo;
Temp := @If (@IsAvailable(Principal) ; Principal ; From);
TempCC := CopyTo;
TempBCC := BlindCopyTo;

REM {フィールドの値変更＆削除};
FIELD CopyTo := @DeleteField;
FIELD BlindCopyTo := @DeleteField;
FIELD Principal := Temp;

REM {メール送信};
REM {　　　　　　　　　　↓転送先アドレスはここを変更してください};
@SetField("SendTo" ; "aaa@bb.com" );
@MailSend("" ; "" ; "" ; ""+Subject; "" ;"送信者 ":"From":@NewLine: "To ":@Name([CN];SendTo):@NewLine:"Cc":@Name([CN];CopyTo):@NewLine:"Body":@NewLine:"==END==");

REM {フィールドの値復旧};
FIELD Principal := @DeleteField;
FIELD Subject := TempSubject;
FIELD From := Temp;
FIELD SendTo := TempSendTo;
FIELD CopyTo := TempCC;
FIELD BlindCopyTo := TempBCC;

SELECT @All

お礼

gemini-a様　ありがとうございます。
ベリーグッドの式です。