リストボックス.ItemsSelected -- ACCESS
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コード & ");"





トップへ
トップへ
戻る
戻る