Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2011 / 2272 ﾂﾘｰ

←次へ　｜　前へ→

▼

【4264】メール送信時の本文の内容について た～に 05/1/26(水) 11:47

【4275】Re:メール送信時の本文の内容について かろちん 05/1/26(水) 22:34

【4279】Re:メール送信時の本文の内容について た～に 05/1/27(木) 13:07


	【4264】メール送信時の本文の内容について

た～に - 05/1/26(水) 11:47 -


	引用なし

	パスワード

どなたか教えてください。
過去の投稿で下記のサンプルを見つけてメール送信の機能を作成しました。
メール起動や送信も問題なく動いたのですが、メールの本文に複数行コメント入れて
送りたいのですが、上手く出来ません。どのようにすれば宜しいでしょうか？

*******メールの本文イメージ********

下記の通り報告致しますのでご確認願います。

顧客名：

物件名：

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


	【4275】Re:メール送信時の本文の内容について

かろちん - 05/1/26(水) 22:34 -


	引用なし

	パスワード

下記のように、bodyに改行を入れればよいのでは。

　　Dim strMsg　　　As String
　　Dim strKokyaku　As String　　　 '顧客名
　　Dim strBukken　 As String　　　 '物件名
　　Dim strURL　　　As String　　　 'URL

　　strKokyaku = ""　　　　　　 '顧客名をセットする
　　strBukken = ""　　　　　　　'物件名をセットする
　　strURL = ""　　　　　　　　 'URLをセットする

　　strMsg = ""
　　strMsg = strMsg & "*******メールの本文イメージ********" & vbCrLf
　　strMsg = strMsg & vbCrLf
　　strMsg = strMsg & "下記の通り報告致しますのでご確認願います。" & vbCrLf
　　strMsg = strMsg & vbCrLf
　　strMsg = strMsg & "顧客名：" & strKokyaku & vbCrLf
　　strMsg = strMsg & vbCrLf
　　strMsg = strMsg & "物件名：" & strBukken & vbCrLf
　　strMsg = strMsg & vbCrLf
　　strMsg = strMsg & "mdbが置いてあるURLを表示" & vbCrLf
　　strMsg = strMsg & "　　 " & strURL & vbCrLf
　　strMsg = strMsg & vbCrLf
　　strMsg = strMsg & "以上" & vbCrLf
　　strMsg = strMsg & vbCrLf
　　strMsg = strMsg & "**********************************" & vbCrLf
　　myItem.body = strMsg


	【4279】Re:メール送信時の本文の内容について

た～に - 05/1/27(木) 13:07 -


	引用なし

	パスワード

かろちんさん、ありがとうございました。
無事に出来上がりました。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2011 / 2272 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free