Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6477 / 76734

←次へ　｜　前へ→


	【75857】差込メールでの添付ファイルの追加

秋田猫 - 14/7/17(木) 19:24 -


	引用なし

	パスワード

お世話になります。
差込メールにて
下記のような添付資料を追加したいのですが、
実行をしても表示されなくなりまして
どのように記述するべきでしょうか？
Outlookでは添付の方法がついていたのですが違うソフトのため
作業がとまってしまい書き込ませていただきました。
お手数ですが、何卒よろしくお願いします。
　ML.Attachments.Add "C:\scan\001.jpeg"

Option Explicit
Private Sub btnCreateMail_Click()
Dim str As String
Dim i As Long
Dim buf As String
Dim fn As String
Dim lnk As String
Dim wsMmbr As Worksheet
Dim wsPrf As Worksheet
Dim ML As Object

Set wsMmbr = Worksheets("テスト")
Set wsPrf = Worksheets("件名参加")

On Error GoTo myErr

fn = ThisWorkbook.Path & "\mail.txt"
buf = Space(FileLen(fn))
Open fn For Binary As #1
Get #1, , buf
Close #1

For i = 5 To wsMmbr.Range("B4").End(xlDown).Row
If wsMmbr.Cells(i, 8).Value = True Then

str = Replace(buf, "≪データ≫", wsMmbr.Cells(i, 7).Value)
str = Replace(str, "≪所属≫", wsMmbr.Cells(i, 3).Value)
str = Replace(str, "≪氏名≫", wsMmbr.Cells(i, 2).Value)
str = Replace(str, "≪ユーザーID≫", wsMmbr.Cells(i, 5).Value)
str = Replace(str, "≪パスワード≫", wsMmbr.Cells(i, 6).Value)
str = Replace(str, vbCrLf, "%0A%0D")

lnk = "mailto:" & wsMmbr.Cells(i, 4).Value & "?subject=" & wsPrf.Range("B1").Value & "&body=" & str

ThisWorkbook.FollowHyperlink lnk

End If

Next
Exit Sub

myErr:

End Sub

5 hits

▼

【75857】差込メールでの添付ファイルの追加 秋田猫 14/7/17(木) 19:24

≪