excel郵件寄發多問題

Mindyj

請問各位先進郵件發送的問題，此檔案是根據使用者的選擇進行郵件發送，目前的問題如下：
1.讓使用者以sheet1選擇要夾帶的檔案位置，在點選import時會出現Application.GetOpenFilename，裡面可以選擇各式的檔案(ex：PDF、TXT、WORD、EXCEL)，在選取檔案後會將檔案位置顯示在儲存格c7的位置


2.根據使用者的選擇條件，將報告類別依sheet2中不同收信者的要求進行寄發郵件，當中所遇到的問題：
  2.1 將所選擇的報告轉為pdf並夾帶
  2.2 將所選擇的報告以html型式放在郵件的主文中
  2.3 選擇的報告型態，依收件者不同的需求進行發送(TRUE代表發送、FALSE代表不發送)
  2.4 郵件尾插入簽名檔
  2.5 SHEET1中的發送按鍵會依使用者所選取的功能進行郵局發送，顯示於OUTLOOK中進行確認

3. 增加收件者c.c.與b.c.c.，標題為報告型態，主文的問候語則參照A10之後的內文。

以上問題，資質不足，研究了一個月還是解決不了，麻煩大家幫忙。謝謝

Book1.rar (9.22 KB)

test
下載次數: 13

2013-5-23 10:50

Mindyj

回復 17# stillfish00


    更正!!!!成功了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    謝謝stillfish!!!!!!:handshake

stillfish00

回復 18# Mindyj
能附上執行會出錯的檔案看看嗎

Mindyj

回復 17# stillfish00
執行結果：object doesn't support this property or method

一個頭n個大、請問還有別的方式嗎?

stillfish00

回復 16# Mindyj
.attachments.add Sheet1.Cells(8, 1).value

Mindyj

剛剛測試了如果將夾帶檔案直接輸入檔案位置是可行的，

可是使用者會依每次需求不同選擇不同的檔案、所以才將檔案位置指定輸入至Sheet1的A8儲存格，

但是當我將夾帶檔案改為指定至儲存格就一直出現錯誤，

而錯誤一直停留在.attachments.add Sheet1.Cells(8, 1)

Mindyj

回復 14# kimbal

還是不是、很納悶，因為這一行不執行的話整個程式是沒問題的，應該是不需要另外寫function?

kimbal

回復 13# Mindyj


    試試?
.attachments.add Sheet1.Cells(8, 1)

不行的話會不會是A8上的附件位置有錯?

Mindyj

回復 12# stillfish00


Hi stillfish,
夾帶檔案指定為shee1的a8儲存格，我使用了
                 .AddAttachment Sheet1.Cells(8, 1)
debug會停留在.addattachment

stillfish00

回復 11# Mindyj
line#28
     EmailTo = EmailTo & CStr(Sheets("Sheet2").Range("G" & i)) & ";"

line#67
    .attachments.Add "C:\aa.txt"
    紅色為附檔的路徑

是這樣嗎?