VBAの構文
Access2002を使用しています。
VBAにて、クエリの結果をメール本文に書き出したいのですが
宜しくお願いします。
【使用するクエリ】
クエリ名：果物クエリ（選択クエリ）
フィールド項目：日付、注文者、発送先、電話番号、品名、数量
【現在の内容】
Private Sub コマンド1_Click()
On Error GoTo Err_コマンド1_Click
Dim stDocName As String
Dim strsubject As String
Dim strmailto As String
Dim strmailto2 As String
Dim strtext0 As String
Dim strText1 As String
Dim strText2 As String
Dim strText3 As String
Dim strText4 As String
Dim strText5 As String
Dim strtext6 As String
Dim strtext7 As String
Dim strtext8 As String
Dim strtext9 As String
strmailto = Me.電子メール_アドレス
strsubject = "商品発送のお知らせ"
strText1 = Me.氏名 & " 様"
strText2 = "いつもお世話になります、第一青果です。"
strText3 = "以下の商品を発送致しましたのでご確認下さいませ。 "
strtext0 = "---------------------------------"
strText4 = "何でも新鮮！"
strText5 = "第一青果"
strtext6 = "担当：山田 太郎"
strtext7 = "mailto:info@808yaoya.net"
strtext8 = "http://808yaoya.net"
strtext9 = ★ここからクエリ内の「品名」と「数量」を書き出したい！★
★以下、現在はレポートをエクセルファイルにして添付するようにしている★
stDocName = ChrW(32013) & ChrW(21697) & ChrW(12524) & ChrW(12509) & ChrW(12540) & ChrW(12488)
DoCmd.SendObject acReport, stDocName, , strmailto, , , strsubject, strText1 & vbCrLf & vbCrLf & strText2 & _
vbCrLf & strText3 & vbCrLf & vbCrLf & strtext0 & vbCrLf & strText4 & vbCrLf & strText5 & vbCrLf & strtext6 & vbCrLf & _
strtext7 & vbCrLf & strtext8 & vbCrLf & strtext0 & vbCrLf & strtext9, True
Exit_コマンド1_Click:
Exit Sub
Err_コマンド1_Click:
MsgBox Err.Description
Resume Exit_コマンド1_Click
End Sub
