- 帖子
- 23
- 主題
- 8
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-2
- 最後登錄
- 2025-1-16
|
因為很常需要大量先做草稿(或寄信)
想用VBA的方式來處理
在youtube上依照papaya老師和google拼湊出想要執行的內容
利用OUTLOOK範本方式, 使用VBA去操控叫出範本來做修改
但卡在迴圈導致VBA沒辦法按照我自己的想法去跑
目前卡在附檔問題, F2~K2是用來放上附檔路徑
第一封隨信要加上兩個附檔
第二封不用附檔
第三封只需要一個附檔
但跑出來的結果會是三封都夾帶到第一列的兩個附檔
如果把迴圈WHILE往上寫 也不成功
想求救一下各位大大該怎麼修改比較好
感謝
Sub 寄送郵件()
Dim 小信差 As Outlook.Application
Set 小信差 = New Outlook.Application
Dim 新郵件 As MailItem
Dim 列數, 總列數 As Integer
總列數 = Cells(1000, 1).End(xlUp).Row
For 列數 = 2 To 總列數
Set 新郵件 = 小信差.CreateItemFromTemplate("C:\Users\XXXXXX\AppData\Roaming\Microsoft\Templates\XXXXX template\XXX到貨.oft")
With 新郵件
.To = Range("A" & 列數).Value
.CC = Range("B" & 列數).Value
.Subject = Range("C" & 列數).Value
.HTMLBody = Replace(.HTMLBody, "稅則", Range("D" & 列數).Value)
.HTMLBody = Replace(.HTMLBody, "FLIGHT", Range("E" & 列數).Value)
i = 2
j = 6
While Sheets("工作表1").Cells(i, j) <> ""
sendFile = Sheets("工作表1").Cells(i, j).Value
新郵件.Attachments.Add sendFile
j = j + 1
.Close olSave
End With
Next 列數
End Sub
|
|
發表於 2024-5-4 12:42
| 
發表於 2024-5-5 10:11
| 