| |
どなたか教えてください。
過去の投稿で下記のサンプルを見つけてメール送信の機能を作成しました。
メール起動や送信も問題なく動いたのですが、メールの本文に複数行コメント入れて
送りたいのですが、上手く出来ません。どのようにすれば宜しいでしょうか？
*******メールの本文イメージ********
下記の通り報告致しますのでご確認願います。
顧客名：
物件名：
mdbが置いてあるURLを表示
以上
**********************************
元の投稿記事は下記のアドレスにありました。
http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=2056;id=Access
使用ソフト：Access2000
OUTLOOKで送付する場合のサンプルです。
参照設定で、Microsoft Outolook 9.0 Object Library を有効にしておいてください。
ケースにより、コメントで書いた方法を併用してくださいね。
Sub メール送信()
Dim myOlApp As Object
Dim myItem As Object
Dim myRecipient As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(0) 'olMailItem
'あて先アドレス（アドレスは変更してくださいね、変数でもOKですよ）
Set myRecipient = myItem.Recipients.Add("Address1@hotmail.com")
'単純にアドレスのみ設定するなら
'myItem.Recipients.Add("Address1@hotmail.com")だけでもOKです
'ccを設定する場合
'Set myRecipient = myItem.Recipients.Add("AddressCC@hotmail.com")
'myRecipient.Type = 2 'BCCの場合は3
'参考：本来Toを設定する場合は
'myRecipient.Type = 1
'タイトルと本文を設定します。（変更してくださいね）
myItem.Subject = "メールタイトル"
myItem.body = "本文"
'重要度の設定、不要なら削除してください。
myItem.importance = 2
'添付ファイル（フルパスで指定、ファイル名は変更してね）
'ファイルが存在しないとエラーになりますので注意。
myItem.attachments.Add "C:\test5.txt"
'OUTLOOKを表示します。
myItem.Display
'表示せずに直接送付はSendメソッドを使います。
'myItem.Send
Set myRecipient = Nothing
Set myItem = Nothing
Set myOlApp = Nothing
End Sub
|
|
た〜に
- 05/1/26(水) 11:47 -
