Access VBA質問箱 IV

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

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


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

8874 / 9994

←次へ　｜　前へ→


	【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

339 hits

▼

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