|
▽ 2023/10/17 (火) 00:10:30 ▽ VBA練習中 |
|
fw00.lintec.co.jp / Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/116.0.0.0 Safari/537.36 OPR/102.0.0.0 |
| ExcelのVBAでベッキーのメールを作成したいと思っています。
宛先、タイトル、本文などは転記できたのですが、
添付ファイルの入力が出来ません。
「attachmentpath」としている箇所が適切でないのだと思うのですが、
何と入力すれば添付ファイルを入れられるか、教えて頂けると助かります。
よろしくお願い致します。
環境
Excel；Microsoft office professional 2019
VBA；Microsoft Visual Basic for Applications 7.1
メーラー；Becky! 2.74.03 [ja]
入力したコードは以下になります（一部省略あり）。
Sub Beckyでメール作成()
Dim strTO As String
Dim strSubject As String
Dim strBody As String
Dim tenp1 As String
'各変数には送信先、タイトルなどを入力しています。
Attachment = tenp1 'tenp1には添付したいファイルのフルアドレスを入れています。
'Beckyを起動してメールを作成
Shell "C:\Program Files (x86)\RimArts\B2\B2.exe mailto:" & strTO _
& "?cc=" & strCC & "?&subject=" & strSubject & "&body=" _
& Replace(strBody, vbLf, "%0D%0A") & "?&attachmentpath= tenp1, vbNormalFocus"
Set objOutlook = Nothing
End Sub
また、併せて、ベッキーメールの署名をVBAコードから選択（指定）する方法も教えて頂けると大変助かります。
|
|
|