'-------------------------

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コード & ");"