1 2 3 4 5 6

廣告

網友您好,若是您覺得我寫的工具或文章對您有幫助,
而您或者您的朋友有在博客來購物,可以透過底下連結

如何在博客來購物贊助網站或是點選計數器下方的博客來圖示來讓網站可以永續經營。

2009年1月19日 星期一

如何在Excel中自動寄送Email並夾帶檔案

之前寫了一個如何將Excel依欄位分類自動儲存並以分類名稱為檔案名稱,對一般人來講,還必須把每個檔案依不同人,寄送不同檔案,所以又寫了這一支"如何在Excel中自動寄送Email並夾帶檔案",這支程式我在 中華電信的網路測試過是正常,其它的就要自行修改郵件伺服器的位置。

下載(autosendmail_adv_1000.xls): http://download.bestdaylong.com/f450.htm
可以設定5個變數取代,試用版一次可以送寄5筆.

下載(AutoSendMail.xls):http://download.bestdaylong.com/f5.htm
下載(autosendmail_gmail.xls):http://download.bestdaylong.com/f6.htm
下載(autosendmail_adv.xls):http://download.bestdaylong.com/f7.htm
下載(autosendmail_v2.xls):http://download.bestdaylong.com/f8.htm
下載(autosendmail_yahoo.xls):http://download.bestdaylong.com/f390.htm

討論意見:

PS:測試環境,windows xp,Excel 2003

1. 設定郵件伺服器及寄件者名稱 2. 在[要寄送名單]輸入要寄送的名單 3. 這是測試寄送的3封Email 4.這是郵件內容
PS:Email可以輸入”(彰化一整天的Blog)imingho@gmail.com”,這樣的輸入,前面就會變成寄件名稱

175 則留言:

nita 提到...

您好,
看了你的blog,excel沒有合併列印功能,要寫vba,我在word使用合併列印時,寄件必須夾帶檔案(檔案只有一個for每個收件者)可以請您協助完成嗎?

一整天 提到...

nita您好:
  可以把您要協助完成的東西寄到我的email(首頁右上方),我才會知道要如何幫助您?

minsp 提到...

您好:
我想請問:可以用 VB 寫程式寄有附件的郵件嗎?

我想使用 SMTP 的指令, 但找不到傳附件的指令用法.

也試過用 MAPI 的方式,但好像又有些問題..

可否請版主看一下呢 ? 謝謝了

minsp 提到...

版主: 您好
我想請問可以用 VB 寫程式寄有附件的 E-mail 嗎 ?

我想用 SMTP 的指令, 但卻找不到寄附件的指令.

用 MAPI 測試又有些問題,

可以請版主看一下嗎 ? 謝謝 ..

一整天 提到...

minsp您好:
您可以把您的程式寄到我的email(首頁右上方),我再幫您找看看問題所在.

陸行馬 提到...

您好:
有個問題請教

我在按下寄出email時都會產生執行階段錯誤

然後停在這一行
objCdo.Send '將email寄出

可以指導一下如何解決嗎?謝謝

一整天 提到...

陸行馬您好:
您是用那一家的網路上網,因為我目前的測試環境只有中華電信,其它的我沒辦法試,如果出現那一行錯誤,通常是isp不讓您寄email所造成的錯誤.

陸行馬 提到...

我也是用中華電信的...

一整天 提到...

陸行馬您好:
您有作什麼修改嗎?您用我的測試檔,把email改成自己的看執行會不會有錯誤.還有您Excel的版本是用多少的?我當初的測試環境是Excel2003.

沇佑 提到...

您好,請問可以在要寄送名單那邊可以多設定一個選擇寄送跟不寄送的欄位嗎??這樣可以方便編輯每次寄送的人??

一整天 提到...

沇佑您好:
我己經修改程式,您可以下載底下檔案
http://f272586.googlepages.com/autosendmail_v2.xls

沇佑 提到...

您好,我先試試,謝謝...囉~

artno 提到...

版大

我執行後 出現

執行階段錯誤 '-2147220973 (80040213)'
該傳輸無法連線到伺服器

按偵錯

我也是停在這一行

objCdo.Send '將email寄出

是跟excel版本有關嗎

我的是excel 2002

然後ISP是SEED

能請版大指導一下嗎

一整天 提到...

artno您好;
您可以詢問您的isp是否可以自己寫email程式寄信,這支程式我只在isp中華電信測試成功,程式應該是沒問題.或是問一下您的isp如果是自行寫程式要如何設smtp伺服器.

Yi-Chang 提到...

大大,請問一下,是否可以加上若mail超過二分鐘尚未寄出,直接跳寄下一封嗎?

hcy 提到...

版主您好

我用gmail, sever 寫smtp.gmail.com,在按下寄出email時產生執行階段錯誤

然後停在這一行
objCdo.Send '將email寄出

可以指導一下如何解決嗎?謝謝

一整天 提到...

hcy您好:
因為gmail的設定比較不一樣.我改了一個gmail版本.您只要把帳號及密碼換成您的,就可以寄出.
請到範例檔下載
範例檔案名稱:autosendmail_gmail.xls

一整天 提到...

Yi-Chang您好:
您要的這個功能比較難辦到.因為Eamil有沒有寄出.是郵件伺服器決定.我們只是透過這個程式寄信.但是這種寄送方式有一個缺點,就是您不會有寄件備份,也不知道是否有人沒寄出Email.

Irene 提到...

您好,

請問如果要自定電郵內容, 該如何做?

我的內文是一整段完整的信件內容. 可是寄出後, 收件者收到的是一段一氣呵成的文字. 所有分段的設定都沒有了...我是選html 形式寄出的~

先謝謝解答!!

一整天 提到...

Irene您好:
您在Excel中把列調高.
如果您是用html的話,那換行就必須是用<br>才可以,底下的內容我試過html是可以正常顯示.


這是測試<br>
請把<b>收件人</b>,改成您要的
不要用我的Email為預設值
換行請用[Alt]+[Enter]

陳小橘 提到...

你好,我昨天有測試過您的excel發信,我是用gmail發信,不過寄出去的信件編碼是big5,能否更改設正讓它寄出的時候可以讓我們選擇編碼的格式,國外許多預設是utf-8,是否可以讓自己做更改的設定呢?

麻煩您抽空回達,謝謝

一整天 提到...

陳小橘您好:
我己經將編碼的選項加入了.您可以重新下載試看看.

owen 提到...

版主您好:
您的程式很好用,感謝您無私的付出!!
但我碰到幾個問題如下:
1.是否有辦法將附將檔案改成指定的欄位?
2.我有自己郵件主機,使用outlook或webmail皆可寄到公司的件主機,但用您的程式時,則會出現[執行階段錯誤:-2147220977,伺服器拒絶了一個或多個郵件位址.伺服器回應:555 5.7.1Relay access denied.]
按偵錯則停在:objCdo.Send '將email寄出

尚祈不吝撥冗指導.謝謝!!

夢幻騎士 敬上

一整天 提到...

夢幻騎士您好:
1.您要把附件改成如何指定欄位,方便寄範例檔說明嗎?
2.偵錯則停在:objCdo.Send,通常是郵件設定錯誤或是郵件伺服器不允許透過程式寄Email

我有寫一個Gmail版本的,比較不會有這種情形發生,您可以到。
範例檔下載
範例檔案名稱:autosendmail_gmail.xls

owen 提到...

版主您好:
謝謝您的回覆!!
我想要把附件檔案改成指定欄位的原因是想對不同的人發送不同的內容.而這內容只有短短的二列,也就是說,假設有二十個人的資料要發送,把他們的資料放在同一個excel檔案內,藉由指定欄位來當傳送內容.不知這樣程式要如何改?
尚祈繼續指教.感恩!!

夢幻騎士 敬上

一整天 提到...

夢幻騎士您好:
這支程式的附加檔案1,附加檔案2就是依不同人可以各別設定相同或是不同的檔案路徑。或是您把您要修改的格式在Excel改好(並圖說),寄到我的信箱,我再修改寄給你。

Sean 提到...

您好:
(1)Gmail版本,不論是UTF-8或Big5,信件內容中文皆為亂碼,英文正常,是何緣故?
(2)版大可否製作一個Hotmail版本?
感謝!

owen 提到...

版主您好:

昨天已將檔案寄給您,不知是否已收到.
再請撥冗指教.感恩!!

夢幻騎士 敬上

一整天 提到...

Sean您好:
您可以寄給自己的Gmail帳號看看是否正常,通常這樣都是收件者的郵件伺服器設定的問題,hotmail版本我改好了,檔案下載,請到[首頁右上方],[範例檔案下載],找到autosendmail_hotmail.xls下載

一整天 提到...

夢幻騎士您好:
您的檔案我收到了,今天也跟您回信,並把您的問題解決了.

Sean 提到...

版大您好:
(1)Gmail或Hotmail,若用txt模式,則big5或utf-8皆為亂碼,改用html模式,則兩者皆正常顯示.
(2)如果要將某個工作表,以本文(非附件檔)方式傳送,要如何修改呢?

一整天 提到...

Sean您好:
1.關於亂碼,我這邊測試是沒有問題,之前有一個網友我跟我說過亂碼是他們郵件伺服器設定的問題,修改設定就不會再發生.
2.第二問題,您是要將某個工作表的某一儲存格嗎?或是您寄個範例給我.我再看可不可修改.

Sean 提到...

已寄至您Gmail信箱!

提到...

版大,問一下您的範例使用的SERVER為gmail的,如果是使用中華電信的SERVER,寄件者的姓名打中文的話,收到的是寄件者名稱亂碼(就是"?")不知道您是否會有這樣的問題...

一整天 提到...

賽您好:
我己經將連結修正,您可以重新下載中華電信的版本.
檔案下載:http://f272586.googlepages.com/AutoSendMail.xls

Irene 提到...

一整天你好!

以上你提到有關亂碼,是郵件伺服器設定的問題...我以前曾經成功以你程式寄出過郵件. 但最近卻會變成亂碼...
請問所謂的修改郵件伺服器設定, 應該如何去修改呢? 謝謝!

一整天 提到...

Irene您好:
郵件伺服器是網友試成功時跟我說問題出在那裡,我這邊沒有接觸到,所以無法回答您,還有您上次寄成功email的isp跟這次是同一個嗎?

chen 提到...

您好,
請問如何附加檔案呢?無附加檔案時可正常寄出信件,但一加入附加檔案就會出現錯誤訊息
While Sheet2.Cells(i, j) <> ""
objCdo.AddAttachment Sheet2.Cells(i, j)
j = j + 1
Wend

可以幫忙解答嗎?

一整天 提到...

chen您好:
您可以將錯誤的畫面及檔案寄到我的信箱imingho@gmail.com,方便查看是那出了問題。

一整天 提到...

Ritz您好:
我收到您的Email,您的問題是出在沒寫上檔案路徑,附檔的方式是要填寫完整路徑跟檔名如c:\tmh\272586.xls這樣的寫法。

chen 提到...

謝謝您,我會了~

Ritz

Pei Yu 提到...

您好:

使用Gmail版本寄送附檔卻會出錯,
跑出下列文字

objCdo.AddAttachment Sheet2.Cells(i, j)

然後寄送Email選單就無法使用

有看到您說一定要使用絕對路徑,但加入附加檔時

檔案都一定是跑file:///C:\\Documents and Settings\Administrator\桌面\XXX.jpg

用的office是2010

Pei Yu 提到...

file:///C:\Documents and Settings\Administrator\桌面\XXX.jpg

剛有多加了一斜線不好意思。

我所指的選單無法使用狀況是在當那出錯視窗跑出來後,點掉那出錯視窗後,寄送mail欄位就無法使用,變成灰階狀態。

昨天有用公司mail問您

也大概是這意思

Pei Yu 提到...

您好:

不好意思,我已經解決了。

路徑方面。

但只要一出錯時,email那欄位會變無法使用,這部份應該還是有問題。

一整天 提到...

Pei Yu您好:
新版的gmail版本己將錯誤加入判斷.麻煩您重新下載.

Pei Yu 提到...

謝謝您唷!

另外想問您別的EXCEL問題

之前有人教學用EXCEL撥打SKYPE電話,但近日SKYPE改版後,就無法於EXCEL撥打,不知這方面您有辦法解決嗎?

還請您參考
http://tw.knowledge.yahoo.com/question/question?qid=1511070305050

知識家當中的提問,謝謝

葉子 提到...
作者已經移除這則留言。
葉子 提到...

您好,我到寄信都正常,還有跑出寄送完畢的提示,可是在信箱就是怎麼都收不到信,請問是什麼問題呢?

我在帳號密碼那邊我沒有輸入,家裡是用中華電信ADSL上網的

一整天 提到...

葉子您好:
請問您是否下載到autosendmail_v2的版本,因為這個版本要在a欄"是否寄送
(非空白是寄送)",要填入Y或是其它字元,就可以寄送。

葉子 提到...

有~~我有填

山姆田 提到...

請問有沒有辦法把整個sheet當作內文寄出,並且還能自動產生表格

一整天 提到...

葉子您好:
妳可以到垃圾信找看看,通常用這種寄信,會被歸到垃圾郵件中,或是妳把收件人先用妳的gmail帳號試看看,如果還是不行,可以將您使用的excel檔案寄給我,我看您設定是否有那出了問題.

一整天 提到...

山姆田您好:
郵件寄送的內容格式只可以選text或是html,所以除非您自己轉換成html,或是把excel用附檔的方式寄出.

小董 提到...

您好:傳送時出現錯誤訊息
執行階段錯誤'-2147220977 (8004020f)'
sender address rejected:access donied

小董 提到...

您好:寄送郵件時出現下列錯誤息,
執行階段錯誤 '-2147220977 (8004020f)'
sender address rejected:access deoied
請問是什麼問題,是那裡錯了嗎,謝謝

一整天 提到...

小董您好:
這個訊息是您沒有權限寄email,
請問您上網使用的是那一家網路公司上網,還有您設定的部分是如何設定,可以抓設定畫面的圖寄給我.我幫您看看.

Yu 提到...

你好!!請問若我用excel撈出來的資料可以連結outlook通訊錄寄送給明細內的人嗎?? 謝謝

Jay 提到...

您好…感謝您的分享!很受用。我想請問您,如何讓excel在達到某一個值的時侯,例如日期A與日期B相差小於3天時,EXCEL自動將某一欄位的內容寄一封提醒的信給自己?麻煩您解惑了。感謝

一整天 提到...

Jay您好:
您說的這個功能,您可能要自己用Excel的公式,自己作判斷再把條件篩選出來再用這個程式寄送.這支程式只是幫您方便寄Email.

Unknown 提到...

一整天大大你好
寄E-MAIL時,所打的中文字皆變成?
(已調整過OUTLOOK)。
請問應該怎麼設定呢!
謝謝

一整天 提到...

Unknown您好:
請問您是用那一個版本的excel寄送的(中華電信,hotmail,gmail)?

Unknown 提到...

大大您好,
我昰使用GMail那個版本去修正
只是我郵件伺服器是使用公司的
再將Port改成標準的 25
目前的問題是 內容只要昰設定中文,郵件收到都會變成 ??

一整天 提到...

Unknown您好:
您把郵件編碼從utf-8改成big5再試看看.因為您郵件伺服器將utf8轉成big5的編碼,才會中文都變成?號

Unknown 提到...

大大您好~
編碼我也嘗試改成"big5"(在編碼欄位打的)
但內容部分也是??
不好意思~麻煩您了~!
謝謝~

一整天 提到...

Unknown您好:
關於亂碼,我這邊測試是沒有問題,之前有一個網友我跟我說過亂碼是他們郵件伺服器設定的問題,修改設定就不會再發生,你可以參考看看.

Unknown 提到...

一整天大大您好:
您所說的郵件伺服器,所指的是公司端郵件伺服器設定;還是個人端郵件設定。
若為個人端,那我昰修改OUTLOOK設定嗎?(本身使用micro outlook 2003)
以上,請您不吝賜教~謝謝!!

一整天 提到...

Unknown您好:
公司端郵件伺服器設定.

Arvin 提到...

一整天大大
這範例真的好好用,借用囉 謝謝!! ^^

我現在遇到了一個問題,我用這個範例寄送mail後,收件者於Microsfot Outlook 2010接收沒問題,但用i Pad接收時內容欄位中文字卻都是亂碼。這該如何解決呢??

一整天 提到...

Arvin您好:
那是編碼的問題,只要把編碼設為utf8就不會出現.我檔案己經改過了.您重新下載就可以.

july 提到...

您好,
請教如何寄附加檔案?要輸入什麼?謝謝您。
(我使用中華電信版本寄信)

july 提到...

已搞定了,不必再回覆,多謝分享!!

天空 提到...

請問這個可以設定讀取回條嗎?

吳彥勳 提到...

您好:
今天在使用時發現一個問題

我在信件內容貼上HTML語法並夾帶一個檔案

但在測試收件時遲遲無法顯示我想要的圖檔

郵件要以EDM型式發出

但始終只看到一堆語法

有勞版主幫我解惑~謝謝

P.S:我會寄一封今日所使用的檔案給您~謝謝

一整天 提到...

天空您好:
這支程式沒有這個功能.

Amber 提到...

您好~
是否能在指定時間寄送郵件呢?
謝謝

巫安琪 提到...

請問如果我按照上述方式寄送檔案給對方..對方如何修改資料回寄給我嗎??還是有別的方式??謝謝!!

一整天 提到...

Amber您好:
這支程式沒有這個功能.

一整天 提到...

巫安琪您好:
這樣寄送檔案給對方.對方要另存檔案.修改完,再回信寄email附檔給你,跟一般email是一樣的.

陳姿吟 提到...

您好:

  我想請問大量寄出的信件,每一封信件之間相隔多久呢?

是否可以設定呢?謝謝您。

一整天 提到...

陳姿吟:
我己將這個功能加入,請到底下下載.

http://discuz.bestdaylong.com/thread-590-1-1.html

咪糖 提到...

大大

那請問gmail版本 有 寄信間隔時間嗎 很怕被當作垃圾信件

一整天 提到...

咪糖,
我己將這個功能加入,請到底下下載.
http://discuz.bestdaylong.com/thread-590-1-1.html

咪糖 提到...

謝謝大大了 小弟感激不盡

咪糖 提到...

謝謝大大 小弟感激不盡

咪糖 提到...

大大 GMAIL有發現一個問題

我發現只要寄出 200封以上...

他大約寄到80ˇ多封時候 都會停住不寄了...

我是在gmail寄件備份看的..都停住了
請問這是??比較屬於哪方面問題?

一整天 提到...

咪糖,
那是google的規定,相關規定如下,
-------------------------
為了防堵垃圾郵件與濫用情形,如果您傳送郵件給 500 位以上的收件者,或傳送大量無法遞送的郵件,Google 將暫時停用您的帳戶。假設您使用 POP1 或 IMAP 用戶端 (例如 Microsoft Outlook 或 Apple Mail),您一次只能傳送郵件給 100 位收件者。一般而言,系統會在 24 小時內重新啟用這類暫時遭停用的帳戶。

資料來源:http://support.google.com/mail/bin/answer.py?hl=zh-Hant&topic=12837&answer=22839

咪糖 提到...

大大 有發現一些問題

例如說 我有200筆 要寄出去

我只有設定1~10 要寄出去 11之後不寄出去
設定時間為10秒發一封信 正常來說 應該是3分鐘內
應該會出現寄信完成~~~等了將近20分鐘 都沒有出現寄信完成視窗
您後來改的新GMAIL版本(加入發信延遲)
好像沒有出現此視窗呢@@
PS 之前舊版本會出現

一整天 提到...

咪糖,
您應該是沒把G欄的附加檔案給刪除,所以最後會出現"寄送期間有xx筆錯誤,請查看Excel的寄件狀態",您到Excel的L欄應該會看到"系統找不到指定的檔案。"

Su Tim 提到...

一整天您好:
我有寫了幾個問題,
因為可能需要圖示說明比較清楚,
所以有發表在上方說明的論壇中:
網址如下:
http://discuz.bestdaylong.com/thread-1427-1-1.html,在麻煩您了!

祥焜 提到...

您好,誠心請教,excel vba有辦法做到「將某個檔案夾帶,並自動放置outlook草稿中」這個動作嗎?謝謝!

一整天 提到...

祥焜,
您要的這樣功能,在excel cba沒辦法做到.

許雅雯 提到...

您好,請問你這個巨集發信的功能在office2007及2010也可作使用嗎?
因為我先前有先下載使用過,可是都找不到巨集設定這個功能,也無法發信,該如何處理呢?謝謝

一整天 提到...

許雅雯您好,

如果您是excel 2007,開啟Excel時,會有底下文章的第一張跟第二張圖片嗎?

http://272586.blogspot.tw/p/excel2003vbaexcel2007vba_06.html
Excel2003VBA變成2007

Kristain 提到...

一整天您好,想請教您,excel可否做到輸出一個qrcode之後把這個qrcode貼在另一張圖片的某些位置呢?

因為我想用qrcode的模式做個人專屬的e-coupon所以qrcode的部份都會不一樣。請問這樣有辦法做到嗎?

感謝您。

Huang Benson 提到...

您好,近日有大批寄信功能,您這個東西真的好用^^

另外想請問內容的部份打字太多可能會造成排版上有點亂,是否有辦法在內容打上路徑直接匯入記事本之類的嗎?

不好意思麻煩您了

謝謝

chenru 提到...

請問~~
我有下載gmail專用的~~也寄送成功了!感謝您的分享!不過我有幾個問題想請問~~
寄件狀態如果是「系統找不到指定的檔案。」信件還是會寄出嗎?(只是沒有夾帶附檔?)還有如果其中一筆出現找不到指定的檔案是不是那一筆接下來的狀態都會出現"系統找不到指定的檔案。"的訊息?(可是信件好像都有寄出成功ㄝ!!??)

一整天 提到...

chenru您好,
我己修正這個錯誤,麻煩您重新到底下下載.
http://bestdaylong.com/discuz/thread-590-1-1.html

朱吳剛 提到...

一整天您好!
我是您程式的愛好者,其中這套程式在我回復煩瑣性郵件相當好用,由於MAIL限制,現在使用只能用公司郵件回覆,但是程式一直出現伺服器拒絕一個或多個郵件存取,可否協助了解可能的原因?

一整天 提到...

朱先生您好,
如果是公司的Email請到
http://discuz.bestdaylong.com/thread-590-1-1.html
下載
autosendmail_adv.xls

再試看看

Eric Lu 提到...

你好,我想要能夠設定開啟EXCEL後就直接寄送信件,這樣可以利用排程呼叫EXCEL檔案就寄信,或是可以多個多久執行一次寄信的選項嗎?非常感謝你,這個檔案真是惠我良多,謝謝。

一整天 提到...

Eric Lu 您好,
您是用那一支寄信程式,我這裡提供很多版本,我先拿您目前用的版本來修正.

Eric Lu 提到...

2009/8/26更新的
autosendmail_v2
非常感謝。

一整天 提到...

Eric Lu 您好,
您要的功能我己加上,下載網址如下:
http://discuz.bestdaylong.com/thread-590-1-1.html
2013/8/20 新增開啟自動寄送,寄完自動設為否,並存檔離開

Eric Lu 提到...

感謝整天大分享~~~
但小弟有個疑惑
設定秒數不能超過60秒
如果我要用一小時寄一次,設定3600秒會出問題
如果直接改VBA的內容為Application.Wait (Now + TimeValue("1:00:" & delaysec))
會出現錯誤訊息,偵錯的位址在objCdo.Send '將email寄出 --- 這行
請問是甚麼問題呢?

一整天 提到...

Eric Lu:
出現那一行錯誤,表示您沒有權限寄信,請確定您是用中華電信網路上網.

Jessie Peng 提到...

您好,
想請問:在這程式下的excel內容部分,可以格式不會變嗎?
又或是可以在附加檔案的部分只附加excel檔的某一範圍?

因為是要發薪資明細用…

謝謝您…

一整天 提到...

Jessie Peng您好,
可以麻煩您到http://discuz.bestdaylong.com,張貼您要的功能,還您要的顯示方式,有圖及檔案說明,我比較能知道您的需求.

天空 提到...

一整天您好:
原本使用這個都很順利,後來換部電腦,作業系統也換成win7,
結果就在寄信狀況出現:沒有設定物件變數或 With 區塊變數
請問要怎麼解決?謝謝您~

一整天 提到...

天空:
麻煩您到
http://discuz.bestdaylong.com/thread-590-1-1.html
下載新版的試看看.

天空 提到...

一整天您好:
有下載新版的,還是不行~

一整天 提到...

天空您好,
您是否可以將錯誤停在的那一行畫面抓下來,張貼到論壇,我再看看是什麼問題造成旳.

欽揚 提到...

一整天版大你好
我下載進階版本使用,但一直出現亂碼,也沒有收到測試信,是否可以煩請指導,感謝!

C?e?u?~?X?° 0x800ccc60!C|oaA?1|^A3?° * OK [CAPABILITY IMAP4rev1 LITERAL+ SASL-IR LOGIN-REFERRALS ID ENABLE STARTTLS AUTH=PLAIN] Dovecot ready.


台南阿力

一整天 提到...

台南阿力您好,
出現亂碼是郵件伺服器回應的訊息,通常是您的設定錯了,可以問你們公司的資訊人員,是否設定有錯誤。

Chin-I Wang 提到...

一整天大大~感謝您的寶貴分享,您的程式非常實用!

我有一個笨問題想請教您,

請問要如何附加檔案啊?

我有看到您說要用絕對路徑,但我還是無法理解。

希望您能夠播冗替小弟解惑,感激不盡!


高雄 慶義

一整天 提到...

慶義您好,
請問您用的作業系統是什麼?一般來說就是完整路徑,例如:
c:\doc\a.doc就是絶對路徑.但是在Excel就要變成
c:\\doc\\a.doc,只要遇到\就變成\\.

Chin-I Wang 提到...

一整天大大

感謝您的回覆! 我是使用Windows 8系統。

我看了您的留言,也試圖照著執行,但仍然無法成功附加檔案。

舉個例子好了,我放在桌面的檔案路徑為:

Name:
123

Location:
C:\Users\Chin-I\Desktop


請問,我應該要如何輸入呢?

感謝您的無私分享!

一整天 提到...

慶義您好,
我寫了一個教學,您試看看是否可以用.
在windows 8如何取得檔案完整資訊
http://blog.bestdaylong.com/2014/02/windows-8.html

Chin-I Wang 提到...

報告一整天大大!!

太感謝您的回復了!

透過您的部落格~我成功的寄送信件With 附檔了!!

實在太感謝您的無私分享與熱心協助!熱我們這些電腦白癡也能夠使用這麼方便的小幫手!!

謝謝你!!

july 提到...

您好,
謝謝您的分享和耐心的回覆解答。
想請問您,我使用中華電信版本寄信,
當附加檔案是圖片時,
收件人無法在outlook收信內容中直接看到圖檔(頁面顯示的是「x」,必須點開附加檔案才能看到,請問可否不用點附加檔案,可在收件內容中直接看到圖片內容?
謝謝您

一整天 提到...

july您好,

內嵌圖片的先決條件是您的圖片必需要在網路上.
內容用html.
將圖片的來源用完整路徑表示.例如.
img src=http://profile.ak.fbcdn.net/hprofile-ak-ash3/27522_373779549460_5066_q.jpg
這樣就可以達到您要的功能.附加檔案沒辦法作到您要的功能.

july 提到...

謝謝您!我會操作了。
您的分享和教學,讓我在工作上更有效率!
感恩~~~

Ho Jostein 提到...

一整天大大您好:
感謝您的程式,實在好用。
想請教如果我沒有要附加檔案,
但是我有一個工作表,
想要傳送工作表中的
表頭及指定列給該列的指定人士,
而且只要顯示在信件中即可。
請問如何更改?
請你協助。謝謝

一整天 提到...

Ho Jostein 您好,
如果沒有附檔就空白就可以,還有您可以在要寄送的內容中用=a1的方式取得某一儲存格的內容,若是不清楚,麻煩您到
http://discuz.bestdaylong.com/thread-590-1-1.html
上傳測試檔案及說明處理前後的畫面.

鍾柏祥 提到...

您好:
請問可以做到內容隨著收件者而改變名稱嗎?
例如

OOO君您好,

您於O月O日來信,等等。

一整天 提到...

鍾柏祥您好,
  您可以參考底下這一篇。
Excel字串取代函數substitute
http://blog.bestdaylong.com/2013/04/excelsubstitute.html

大餅妹 提到...

您好:
想請問一下,如果是個別的資料,要寄給個別的人,但資料在excel表中,這樣能寄嗎,因為我要寄手機使用明細給同仁,但必須一個一個寄,想說是否有可以自動寄出給每一個人的

一整天 提到...

大餅妹您好,
這個Excel可以達到您要的需求.

XPOWER 提到...

您好,
如果公司的smtp port變更為587
請問可以怎麼樣在smtp port中進行新增port number呢?

影闇 提到...

一整天大大您好,我在公司都是用outlook 2007及outlook2010發送信件,我該用那個版本,請問您附件中的伺服器我該如何查詢,outlook本身可以查詢嗎?平時公司開機登錄就可以直接使用outlook寄信了,所以帳戶密碼須要輸入嗎?

一整天 提到...

您好,
您要下載autosendmail_adv.xls
至於您的郵件設定查看,請看底下這一篇
http://blog.bestdaylong.com/2013/04/outlook-2010.html
outlook 2010設定郵件及查看郵件伺服器設定

juihsuan 提到...

您好,
請問有辦法保留信件內文格式嗎? 俐如粗體斜體等,謝謝

一整天 提到...

juihsuan您好,
內文格式(txt或html)選html,再使用html的粗體及斜體的語法就可以.

莊詠傑 提到...

一整天大大您好

我爬文之後發現我應該是用autosendmail_adv.xls,公司都是用outlook且是exchange伺服器,我把郵件伺服器改成exchange的位址寄出後,反應是無法連線到伺服器,不知道哪裡出問題,再麻煩大大解答了,十分感謝您

一整天 提到...

您好,
您可以查看是否是郵件伺服器的設定有問題.因為這支程式試過是沒有問題的.大部分都是設定錯誤所造成的.

iamjasonjasmine 提到...

版主您好,我是在公司使用outlook寄出(公司是exchange伺服器), 使用後出現訊息"寄送期間有2錯誤,請查看EXCEL的寄件狀態", 查看了excel寄送名單之"是否寄送"欄位,打Y或序號都出現上述的錯誤訊息, 不打的話(空白)則雖帶出"寄送成功"訊息,但對方卻沒有收到信且寄件備份都找不到,不知是哪裡有問題嗎?還請幫忙解惑!

蔡明和 提到...
作者已經移除這則留言。
蔡明和 提到...

您好,
您可以查看是否是郵件伺服器的設定有問題.因為這支程式試過是沒有問題的.大部分都是設定錯誤所造成的.
至於您的郵件設定查看,請看底下這一篇
http://blog.bestdaylong.com/2013/04/outlook-2010.html
outlook 2010設定郵件及查看郵件伺服器設定

doknow 提到...

請問一整天版主,我下載檔案然後把要寄出的內容改完後,執行巨集出現以下錯誤訊息:「郵件無法傳送到 SMTP 伺服器。傳輸錯誤碼為 0x80040217。伺服器回應為 not available」,請問是什麼原因呢?您的檔案非常實用,感謝您!

蔡明和 提到...

您好,
您的訊息是SMTP沒有設定正確,您可以查看是否是郵件伺服器的設定有問題.因為這支程式試過是沒有問題的.大部分都是設定錯誤所造成的.
至於您的郵件設定查看,請看底下這一篇
http://blog.bestdaylong.com/2013/04/outlook-2010.html
outlook 2010設定郵件及查看郵件伺服器設定

黃小灰 提到...

請問版大,使用時出現 "伺服器拒絕了該寄件者地址。伺服器的回應為:555 5.5.2 Syntax error. qw13sm1902258pab.14 - gsmtp" 這是什麼問題呢??該如何解決??謝謝!!

Hsiang Huang 提到...

版大您好
因在近日需要大量寄送一些資料在網路上查詢到您的文章
本身公司是使用中華電信企業固網
作業環境為win8 excel為2013版
今日測試發現也是出現"執行階段錯誤 '-2147220973 (80040213)'
該傳輸無法連線到伺服器"
是否因版本關係不符呢?
再勞煩解答,謝謝您。

蔡明和 提到...
作者已經移除這則留言。
蔡明和 提到...

您好,
請問您是下載那一支程式?

蔡明和 提到...

黃小灰您好,
請問您用的email是那一家的?

Hsiang Huang 提到...

您好
四個程式我都有下載測試過
都是該傳輸無法連接到伺服器
請問是否為ISP不支援呢?
再勞煩解答,謝謝~

蔡明和 提到...

您郵件伺服器是不是設msa.hinet.net
帳號及密碼是否是空白.

Hsiang Huang 提到...

是的!!!

Hsiang Huang 提到...

gmail 的 我也有smtp的方式下去設定 但也是失敗

蔡明和 提到...

妳有筆電嗎?可以將檔案複製到筆電,在帶到麥當勞用中華電信的無線網路試看看,若是可以,就是isp不支援.或是不行,您把那個檔案寄給我,我再幫您看看是什麼問題.

Hsiang Huang 提到...

您好
不好意思我手邊沒有筆電可以測試
非常感謝您的幫忙~~
謝謝。

黃小灰 提到...

版大您好:
我使用的是Gmail

蔡明和 提到...

您是下載
(autosendmail_gmail.xls):http://download.bestdaylong.com/f6.htm
這個版本的嗎?裡面的設定我設好了,您只要修改使用者名稱跟密碼就可以用。

小滾歌手 提到...

版大您好-:
請問我用gmail跟excel2003,結果寄件不成功excel裡面的寄件狀態出現
"?l¥oμLak?C°e‥i SMTP |oaA?1!C?C?e?u?~?X?° 0x80040217!C|oaA?1|^A3?° not available"
我用autosendmail_gmail這個檔案,然後信箱裡出現"登入嘗試遭拒"的回信
內容"有人剛剛試圖在未採用最新安全性標準的應用程式中登入您的 Google 帳戶"
不知道問題在哪裡,謝謝!

蔡明和 提到...

您好,
請參考底下這一篇
如何解決Excel用gmail寄信會出現傳輸錯誤碼為 0x80040217
http://wordpress.bestdaylong.com/blog/archives/12745

胡小欣 提到...

你好 剛剛試用了一下 是下載gmail版本
除了使用者 密碼與寄件者要填之外 還有動什麼嗎
在"是否寄送(非空白是寄送)" 這一攔我如果有填 他會寄出錯誤 沒有填 可以寄出 但是完全沒有收到信 垃圾信件裡面也沒有
不知道是哪裡出了問題 謝謝你喔!

蔡明和 提到...

您好,
請參考底下這一篇
如何解決Excel用gmail寄信會出現傳輸錯誤碼為 0x80040217
http://wordpress.bestdaylong.com/blog/archives/12745

林克勤 提到...

您好 首先先謝謝您 一直從您這邊學習到很多VBA的程式.

小弟現在這邊有一個問題.我用以下的編碼.是可以用EXCEL發出MAIL.(中華電信 MSA )
可是我將檔案傳到筆電時.用無線網路時.MAIL就完全無法寄出.

Sub sendmail()
Dim objEmail As Object
Const SMTPSERVER = "msa.hinet.net" '使用 msa.hinet.net 傳送郵件

Set objEmail = CreateObject("CDO.Message") '建立 CDO 物件
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPSERVER
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With


objEmail.From = "quni_lin@yungtech.com" '寄件者
objEmail.To = Range("ZZ1").Value '收件者
objEmail.CC = Range("ZZ2").Value
objEmail.BCC = Join(Array([V7], [V8], [V9], [V10], [V11], [V12], [V13], [V14], [V15], [V16], [V17], [V18], [V19], [V20], [V21], [V22], [V23], [V24], [V25], [V26], [V27], [V28], [V29], [V30], [V31], [V32], [V33], [V34], [V35], [V36], [V37], [V38], [V39], [V40], [V41], [V42], [V43], [V44], [V45], [V46], [V47], [V48], [V49], [V50], [V51], [V52], [V53], [V54], [V55], [V56], [V57], [V58], [V59], [V60], [V61], [V62], [V63], [V64], [V65], [V66], [V67], [V68], [V69], [V70], [V71], [V72], [V73], [V74], [V75], [V76], [V77], [V78], [V79], [V80], [V81], [V82], [V83], [V84], [V85], [V86], [V87], [V88], [V89], [V90], [V91], [V92], [V93], [V94], [V95], [V96], [V97], [V98], [V99], [V100]), "; ")
objEmail.Subject = Range("I4").Value '郵件主旨
objEmail.TextBody = Range("J4") 'HTML郵件內文
objEmail.AddAttachment ("D:\個人\外包\爵士國際淨水\JAZZ.RAR")
objEmail.Send
Set objEmail = Nothing
End Sub
---------------------------------------------------

錯誤的訊息是 執行階段錯誤-2147220973

請問大大看的出來問題是出在哪裡嗎? 非常感謝您

蔡明和 提到...

林先生您好,
您用的無線也是中華電信的線路嗎?

hubuki You 提到...

您好:

因公司需要大量寄信而搜尋到您的文章
我是用gmail的版本
但我打完寄件人帳密、收件人資訊按寄出之後,會跳出錯誤訊息"寄送期間有3個錯誤,請查看Excel寄件狀態"
請問該如何解決呢?
謝謝

蔡明和 提到...

您好,
請參考底下這一篇
如何解決Excel用gmail寄信會出現傳輸錯誤碼為 0x80040217
http://wordpress.bestdaylong.com/blog/archives/12745

Unknown 提到...

你好,
請問如何修改 strTextBody = Sheet2.Range("e" & i),
因想修改每個收件人稱呼(Dear XXXX), 但內容是相同. 或有其他方法. 謝謝!!

蔡明和 提到...

請參考.
http://blog.bestdaylong.com/2013/04/excelsubstitute.html

Unknown 提到...

版大您好
因近日公司需要電郵大量電子賀卡, 如要在內文中直接顯示電子賀卡還要指定不同客戶分別寄出, 那VBA我該怎樣寫, 請教教我. 感謝!!

蔡明和 提到...

您好,
內嵌圖片的先決條件是您的圖片必需要在網路上.
內容用html.
將圖片的來源用完整路徑表示.例如.
img src=http://profile.ak.fbcdn.net/hprofile-ak-ash3/27522_373779549460_5066_q.jpg

Alice Lau 提到...

老師您好,
我的圖片是網絡上的PNG,而內容也是HTML,但在相片背後有一條ECARD的超連結,在寄送名單內的每一個電郵地址都需分別寄出,請問我該如何設定.
在電郵顯示的電子賀卡是用以下式樣寄出
XXX先生您好,
祝聖誕及新年快樂!
(相片+電子賀卡的超連結)
XXXX公司
[因我是初學的所以麻煩你請教教我該如何設定,感謝]

蔡明和 提到...

您好,
您可以參考底下這一篇.
http://blog.bestdaylong.com/2013/04/excelsubstitute.html
Excel字串取代函數substitute

Unknown 提到...

你好
是否有機會將程式直接連接outlook寄信呢?

郭霆佑 提到...

您好,我是在公司寄信,出現

執行階段錯誤 '-2147220973 (80040213)'
該傳輸無法連線到伺服器

按偵錯

停在這一行:objCdo.Send '將email寄出

請問是我需要跟公司MIS要什麼額外的資訊嗎?

蔡明和 提到...

外寄郵件伺服器(SMTP)

forprintboy123 提到...

謝謝您的檔案,
非常有用。

出現
"The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available"
訊息的解決辦法,
也在您的這篇教學
http://wordpress.bestdaylong.com/blog/archives/12745
中獲得解決。
另外,
文中所提到的在Google設定"允許安全性較低的應用程式",
Googe的設定介面已更新,
要改至這裡設定
https://support.google.com/accounts/answer/6010255?hl=zh-Hant

Chuni Chen 提到...

如果是多個收件者,與多個副本收件者,要更改什麼地方嗎?

Chuni Chen 提到...

在同一封信中,夾戴相同檔案

蔡明和 提到...

不用修改,只要收件者中間用逗號做間隔就可以.

Chuni Chen 提到...

執行階段錯誤-2147220977
伺服器拒絕了1個或多個收件者地址。伺服器回應為5505.7.1 Unable to relay
這代表公司伺服器不能傳嗎?
因為我寄單一個收件者OK

蔡明和 提到...

您把逗號改成分號再試看看.若不行,問一下您們公司的mis,是不是不允許一次寄多個收件者.

贊助

彰化一整天粉絲團

About Me

我的相片

很多人問我為什麼叫"一整天",其實這是有原故的.有一天看一本書.就是說如何介紹自己.裡面說到如何讓別人對你的名字有印象.就要讓別人跟你的名字或是身體的一些特徵有關.比如很胖.就會被別人取小胖或是胖子.或是跟名字有關的諧音,那天看布袋戲中有一個叫”一頁書”的角色.所以我就想我的名字.可以想出什麼字出來.結果我把我的名字"明和",拆成日月和,日月和在一起,就代表白天晚上都在一起.就取名為"一整天",而這個"一整天"跟我的名字有關也方便別人記憶,後來發現"一整天"這個名詞太常被用,所以就在"一整天"前面加上"彰化"變成"彰化一整天",為什麼要加彰化.因為我老家在彰化,所以以後別人要找我的部落格的話.我都會跟他們說,請到yahoo或是google打"彰化一整天"第一筆出現的就是我的Blog. PS:現在只要輸入"一整天"可以找到.