VBA --
'-------------------------
For Each Var行 Me.リストボックス.ItemsSelected
*************************************************************
Dim Var行 As Variant
Dim varコード As Variant
'リストボックスの行数は、左から6行目ならば、「5」となる。
varmail = Null '変数varmailにNullを代入します。
For Each Var行 In Me.顧客リスト.ItemsSelected
varmail = varmail & IIf(Not IsNull(varmail), ";", "") & _
Me.顧客リスト.Column(5, Var行)
Next 行
'入力確認
If IsNull(varmail) Then
MsgBox "リストが選択されていません。", 16, "メール送信"
Exit Sub
End If
str件名 = Me.件名 & Me.未返却端末
str本文 = Me.本文 & vbCrLf & vbCrLf & vbCrLf & Me.署名
strmsg = MsgBox("メール送信画面を起動します。メール件名、本文、署名は編集することができます。" & _
Chr(13) & Chr(13) & "起動しますか?", 4 + 32, "メール送信")
If strmsg = vbNo Then
Exit Sub
End If
'BCCのみでメール送信します
' DoCmd.SendObject acSendNoObject, , , , , varmail, str件名, str本文, True
' MsgBox "メール送信しました。", 64, "メール送信"
'******************************************************************************
Dim Var行 As Variant
Dim varコード As Variant
varコード = Null '変数varmailにNullを代入します。
For Each Var行 In Me.顧客リスト.ItemsSelected
varコード = varコード & IIf(Not IsNull(varコード), ",", "") & "'" & Me.顧客リスト.Column(1, Var行) & "'"
Next 行
'Where〜In〜で抽出したものを、追加クエリで追加する
mySQL = "INSERT INTO T_メール送信履歴 (コード,顧客名,顧客担当者メールアドレス,端末機種名,送信日時,送
信時刻,件名,本文)" & _
"Select コード, 顧客名, 顧客担当者メールアドレス," _
& "'" & Me.端末名 & "',#" & Date & "#,#" & Time & "#," _
& "'" & Me.件名 & "','" & Me.本文 & "'" _
& "From T_顧客 Where T_顧客.顧客コード In(" & varコード & ");"
|