ACCESSと連動し、自動的に仕入先へメールを送りたいと考えております。
Dim oApp As Object Dim myNameSpace As Object Dim myFolder As Object Dim objMAIL As Object Dim strMOJI As String Dim IDX Dim RS1 As Recordset Set db = CurrentDb() Set oApp = CreateObject("Outlook.Application") Set objMAIL = oApp.CreateItem(0) Set RS1 = db.OpenRecordset("T_送信先") Do Until RS1.EOF objMAIL.Display objMAIL.To = (RS1!メールアドレス_1) objMAIL.Subject = Mid(Me!YMD, 6, 2) & "月分請求額のお知らせ" strMOJI = (RS1!仕入先名称1) & " " & (RS1!仕入先名称2) & "御中" & vbCrLf _ & "" & vbCrLf _ & "いつもお世話になっております。" & vbCrLf _ & Mid(Me!YMD, 6, 2) & "月の請求額は下記の通りとなります。" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "請求額" & ":" & (RS1!請求額) & ”円” & vbCrLf _ & "消費税" & ":" & (RS1!消費税) & ”円” & vbCrLf _ & "総計" & ":" & (RS1!総計) & ”円” & vbCrLf _ & "" & vbCrLf _ & "担当者" & ":" & (RS1!担当者) & vbCrLf _ & "" & vbCrLf _ & "※ご不明な点につきましては担当者までお問合せ頂きますようお願い申し上げます。" & vbCrLf _ objMAIL.Body = strMOJI Loop End Sub
問題なくコードは動いてくれるのですが、本文(strMOJI)でご教示いただきたいことがあります。
メールの本文は下記のようになるのですが金額の部分がカンマ区切りになっていません。
いつもお世話になっております。
06月の請求額は下記の通りとなります。
請求額:8463420円
消費税:677073円
総計:9140493円
担当者:田中
※ご不明な点につきましては担当者までお問合せ頂きますようお願い申し上げます。
本文のデータ型をStringに設定しているのでもちろん数値型にならないのは理解していますが、取引先に送る
メールとしてはいかがなものかと悩んでおります。
やってみたことは別途データ型をCurrencyに設定した変数を作成しCCur関数で格納し、本文(strMOJI)とは別に明記しようとしてみましたがCCur関数がうまくできていないのか、カンマのない状態で値が返ってきました。
RS1のテーブルの書式も通貨型にしていますが、これもあまり意味がないようで値はIntegerでした。
カンマがついた状態、または通貨型で値が返る方法がありましたらご教示ください。
宜しくお願い致します。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/06/18 07:09