各位大大,
-)pVgf 請幫忙解下述狀況, 謝謝!
Io*
mFa? --------------------------------------------------------------------------------
Ib}~Q@?2 使用目的:
=XhxD<kI 把EXCEL工作表用巨集方式, 直接用E-mail寄出去.
1nZ7xCDK98 問題:
S-7ryHH*0 這一小段EXCEL巨集提供給多人使用, 但發現同樣用Excel2003執行巨集時到這段,有些人能正常運作寄出, 但有些人到紅字段即出現下列藍字錯誤訊息:
9Od|R"aS| Ly~s84k_po 執行階段錯誤 '1004' By;{Y[@rS
無法設定種類 RooutingSlip 的 Recipients 屬性 3?
x}48 )e?6 Ncy --------------------------------------------------------------------------------
zI&). With ActiveWorkbook.RoutingSlip
V9\y*6#Y, .Recipients = Array("AAA@XXX.com.tw","BBB@XXX.com.tw", "CCC@XXX.com.tw") X[E!q$ag .Subject = "生產報表--" & Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")
Rq[VP# .Message = "WIP REPORT / MOVE REPORT"
?y|8bw< .Delivery = xlAllAtOnce
?l?_8y/ww .ReturnWhenDone = False
U|jip1\ .TrackStatus = False
Ir?ehA End With
] vQU(@+I ActiveWorkbook.Route
[+3~wpU(p _|C T|q --------------------------------------------------------------------------------