![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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ランキング
-
CGI(Perl)からメールを送信する...
-
VBScriptで、メールの送信をし...
-
フォームデータ-の送信時の確認...
-
VBAでsmtp認証をするには?
-
VBAでoutlook365が起動しません。
-
添付ファイルをつけてメールを送る
-
受信メールの本文の行間が空く
-
グラフのX,Y座標を取得したい
-
VBでグローバル変数を宣言するには
-
例外処理のフローチャートの記...
-
ユーザー定義関数に#NAME?が返...
-
'Range'メソッドは失敗しました
-
Excel VBA 『Call』で呼び出す...
-
文章の分割
-
Excel VBAでリンク切れをチェッ...
-
VBAで別モジュールへの変数の受...
-
「デバイスは PRN を初期化でき...
-
[ASP]条件によってインクルード...
-
モジュールとは何ですか
-
Excel VBAで、ユーザーフォー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでoutlook365が起動しません。
-
c#で 簡単なメール(添付ファ...
-
Perl メールフォーム複数のアド...
-
CDO.Messageを使ったVBScript
-
送信先のメールアドレスが存在...
-
【C言語】メールを送信するプロ...
-
Enterキーを押しても送信しない...
-
プロキシ経由でjavamailを使っ...
-
VBScriptで、メールの送信をし...
-
perl 自動返信メールプログラム...
-
C#のメール送信時のエラーについて
-
空メールシステムについて
-
フォーム経由で送られるURLつき...
-
フォームメール、時刻を設定し...
-
Net::SMTPでメールを送信したい...
-
C言語のプログラム内でトリガを...
-
VBAでsmtp認証をするには?
-
sendmailでメール送信
-
Exchangeを使用したメール送信...
-
リンクをクリックするだけでC...
おすすめ情報