お世話になります。
cdoMessage.Attachments(x).Charset = "utf-8"
の「x」のところに何か入れればいいと思うのですが、
何を入れればいいのか分かりません。
また、添付ファイルは複数のときもあるので、
「,」で区切って添付ファイルを指定するようにしています。
Private Sub Tenpu_rtn(strTenpu As Variant)
Dim strHairetsu As Variant
Dim Idx_i As Long
strHairetsu = Split(CStr(strTenpu), ",")
For Idx_i = LBound(strHairetsu) To UBound(strHairetsu)
If Trim(strHairetsu(Idx_i)) <> "" Then
objCDO.AddAttachment Trim(strHairetsu(Idx_i))
End If
Next Idx_i
'ここで指定する？
objCDO.Attachments(？).Charset = "utf-8"
End Sub
