人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルのVisual BasicからLotusNotesの電子メールを送信する方法、プログラムについて教えていただけますか。送信に至らず、宛先、CC、件名、本文欄に入力された状態でNotesの新規メールが作成された状態にしたいと思っています。

●質問者: fwix3503
●カテゴリ:コンピュータ
✍キーワード:エクセル プログラム メール 作成 入力
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● Mook
●42ポイント

開いた状態にするのはできませんでしたが、ドラフトに保存した状態にするコードです。

ノーツを開いた状態で実行し、実行後にNotes の 「メール」⇒「ドラフト」で F9 を押してください。

Const EMBED_ATTACHMENT As Integer = 1454
Const MAIL_SEND = 1
Const MAIL_SAVE = 2

'-------------------------------------------------------------------
' Notesを起動した状態で実行
'-------------------------------------------------------------------
Public Sub SaveNotesMail()
 Dim mailMode As Integer
'-----------------------------------
' *** 動作モード ***
' 保存:MAIL_SAVE
' 送信:MAIL_SEND
'-----------------------------------
 mailMode = MAIL_SAVE

 Dim wkNSes As Object ' lotus.NOTESSESSION
 Dim wkNDB As Object ' lotus.NOTESDATABASE
 Dim wkNDoc As Object ' lotus.NOTESDOCUMENT
 Dim wkNRtItem As Object ' lotus.NOTESRICHTEXTITEM
 Dim wkNAtt As Object ' lotus.NOTESEMBEDDEDOBJECT

 Set wkNSes = CreateObject("Notes.NotesSession")
 Set wkNDB = wkNSes.GetDatabase("", "")
 wkNDB.OpenMail

 Set wkNDoc = wkNDB.CreateDocument()
 
'-----------------------------------
' *** 件名 ***
'-----------------------------------
 wkNDoc.Subject = "テスト(タイトル)"
'-----------------------------------
' *** 宛先 ***
'-----------------------------------
 wkNDoc.SendTo = Array("fwix3503@hatena.ne.jp")
'-----------------------------------
' *** CC ***
'-----------------------------------
 wkNDoc.CopyTo = Array("Mook@hatena.ne.jp")
'-----------------------------------
' *** BCC ***
'-----------------------------------
 'wkNDoc.blindCopyTo = Array("xxx@xxx")

'-----------------------------------
' *** 本文 ***
'-----------------------------------
 Set wkNRtItem = wkNDoc.CreateRichTextItem("BODY")
 ' 本文をセットする
 With wkNRtItem
 .APPENDTEXT "本文(1行目)"
 .ADDNEWLINE 1
 .APPENDTEXT "本文(2行目)"
 .ADDNEWLINE 1
 End With

'-----------------------------------
' *** 保存 / 送信 ***
'-----------------------------------
 Select Case mailMode
 Case MAIL_SEND
 wkNDoc.Send False
 MsgBox "メールを送信しました", vbOKOnly + vbInformation
 Case MAIL_SAVE
 wkNDoc.Save True, False
 MsgBox "メールをドラフトに保存しました", vbOKOnly + vbInformation
 End Select
End Sub
◎質問者からの返答

有難うございました。

非常に助かりました。

何も言うことは無いです。素晴らしいプログラムですね。


2 ● F-15X
●28ポイント

こちらの1?4までの手順でいけるかと思います。


◆ ドミノCOM実装?コーディング編

◎質問者からの返答

有難うございました。参考になりました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ