lotus script言語で、メールを作成し送信する方法は解るのですが、
送信せず、作成したメールの内容で、メーラーの新規メール作成画面を立ち上げる方法がわかりません。
スクリプト(抜粋)
Set maildoc = db.CreateDocument 'maildoc
Call maildoc.ReplaceItemValue("Form","Memo")
Call maildoc.ReplaceItemValue("SendTo",uidoc.FieldGetText("mail"))
maildoc.CopyTo = uidoc.FieldGetText("itsupport")
Call maildoc.ReplaceItemValue("Subject","テスト")
Set mailritem = New NotesRichTextItem(maildoc,"Body") 'mailritemをBodyとして定義
Call mailritem.AppendText("【テスト】")
Call mailritem.AddNewline(2)
Call mailritem.AppendText("テスト")
Call mailritem.AppendDocLink(uidoc.Document,"")
Call maildoc.Send(False) 'メールを送信する
こんな感じで、普通にメール作成して最後に送信してます。
ここで、最後に送信はせず、このメール内容で新規メール作成画面を立ち上げたいです。
これはボタン内で作成しており、他にも機能をつけてるので、@関数で全体を書き直すことができません。 この新規メール作成の部分だけ@関数使う形なら問題ないのですが、
方法を教えていただけますでしょうか。
No.1ベストアンサー
- 回答日時:
仕様がいまいちわからないのでなんとも言えませんが
多分こんなことがしたいんだろうなぁというソースを書いておきます。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim maildb As New NotesDatabase("","")
Call maildb.OpenMail
Set uidoc=ws.CurrentDocument
Set doc = maildb.CreateDocument
Call doc.ReplaceItemValue("Form","Memo")
Call doc.ReplaceItemValue("Subject","テスト")
Set rtitem = New NotesRichTextItem(doc,"Body")
Call rtitem.AppendText("【テスト】")
Call rtitem.AddNewline(2)
Call rtitem.AppendText("テスト")
Call rtitem.AppendDocLink(uidoc.document,"")
Call doc.Save( False, False)
Call ws.EditDocument(True,doc)
ローカルでメールファイルの設定とかきちんとしてあれば
ご自身のメールボックスが開きます
(一部未提示の仕様SendToの指定とか・・・は実装していません)
ありがとうございます!
まさに自分のやりたいことでした。
このメール作成以外の部分はScriptで書いていたので、@関数は使えず、困っていましたが、非常に助かりました!
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- docomo(ドコモ) 携帯 arrows we の操作 4 2023/03/29 18:53
- docomo(ドコモ) アンドロイド(ドコモ)でメールの着メロが設定出来ません 4 2023/03/09 22:09
- ビジネスマナー・ビジネス文書 就活でのメールのやり取りについて 企業様からの「履歴書提出をお願いいたします。」 という内容のメール 5 2023/03/16 09:46
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Excel(エクセル) 2つのマクロを連続して動かしたい 3 2022/09/20 23:46
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) Excel VBA シートを追加後に余分なシートを削除する、の意味 21 2022/05/19 22:46
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでoutlook365が起動しません。
-
c#で 簡単なメール(添付ファ...
-
VBAでsmtp認証をするには?
-
空メールシステムについて
-
sendmailでメール送信
-
C言語のプログラム内でトリガを...
-
Cからシェルを起動し返り値をハ...
-
例外処理のフローチャートの記...
-
VBAで別モジュールへの変数の受...
-
VBAProjectのモジュ...
-
標準モジュールを削除したい。(...
-
【vba】フォームに書いてあ...
-
Access VBA標準モジュールにつ...
-
「デバイスは PRN を初期化でき...
-
VBでグローバル変数を宣言するには
-
'Range'メソッドは失敗しました
-
ExcelVBA:パブリック オブジェ...
-
Excel VBAで、ユーザーフォーム...
-
ベースモジュールって?
-
モジュールとは何ですか
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでoutlook365が起動しません。
-
【C言語】メールを送信するプロ...
-
Net::SMTPでメールを送信したい...
-
フォームデータ-の送信時の確認...
-
VBScriptで、メールの送信をし...
-
server errorで困ってます。
-
Exchangeを使用したメール送信...
-
LotusScript メール作成方法が...
-
さくらインターネットでの添付...
-
ウィンドウズ上で動くメールサ...
-
CGI(Perl)からメールを送信する...
-
BASP21使用のメール送信でコマ...
-
CGI(Perl)でメールフォームを作...
-
DreamWeaverCS4でのフォーム作...
-
VBAでsmtp認証をするには?
-
perl 自動返信メールプログラム...
-
ASPでのsendmail(BASP21の使用...
-
リンクをクリックするだけでC...
-
プロキシ経由でjavamailを使っ...
-
javamailでメール送信ができません
おすすめ情報