[誠心請教]如何大量發送郵件並夾帶附件(公務用)

無奈啊~
個人積分：0分
文章編號：9473461

0分

樓主

2008-12-18 9:50

大家好~

小弟遇到一個問題希望強者大大們能協助~

日前一個user和我反應要用公司名義寄送大量問卷調查給客戶希望我們MIS幫忙

他希望每一個收件人看到的都是公司寄給專人而不是用密件副本的方式

我之前是用合併列印的方式寄出但不能夾帶附件

上網查了一下有人提到用CDO ( Collaboration Data Objects ) 物件或是使用VB來寄一個小程式來寄送

也有同事建議用市場上流傳的免費寄送大量郵件軟體來發

但我們公司是用Exchange Server來收送信

而Server又在日本且日本總公司不開放SMTP對外使用

所以有什麼方法可以寫一個小程式或是工具能在Client上透過Microsoft Outlook並夾帶附件寄出呢?

感謝大家~

2008-12-18 9:50 發佈

文章關鍵字附件郵件

chunte

chunte
個人積分：56分
文章編號：9473921

56分

2樓

2008-12-18 10:18

建議您

把附件放在外面的空間,如HINET有送每個USER 60MB的空間

然後在E-MAIL中設定超連結,指向HINET的檔案

這樣您的收信人,點選連結即可下載

§如果小弟的回答,您覺得ok,別忘了給分哦!!

mictzen6116

mictzen6116
個人積分：146分
文章編號：9473985

146分

3樓

2008-12-18 10:22

是的大量郵件夾帶附件會造成mail server 的沈重的負擔別人的信都不用寄了

=================================================

直接控制outlook程式囉

無奈啊~

無奈啊~
個人積分：0分
文章編號：9474002

0分

樓主

2008-12-18 10:23

chunte wrote:
建議您把附件放在外面...(恕刪)

感謝~

這也是一個變通的方法,

我也可以開通公司的FTP Server供使用者下載,

還有其它強者能分享一下經驗嗎?

謝謝~

mictzen6116

mictzen6116
個人積分：146分
文章編號：9474061

146分

5樓

2008-12-18 10:27

Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = txtSubject
.To = txtTO
.CC = txtCC
.BodyFormat = 2
.HTMLBody = txtBody
.Send
End With

無奈啊~

無奈啊~
個人積分：0分
文章編號：9474381

0分

樓主

2008-12-18 10:46

mictzen6116 wrote:
Set App = ...(恕刪)

感謝大大神來一筆~

但請問一下在您的程式中好像沒有帶到夾帶附加檔的地方?

另

小弟不是程式開發人員能否指點一下您所寫的程式是run在那一種開發平台上呢?

謝謝~

bala@syr

bala@syr
個人積分：111分
文章編號：9474617

111分

7樓

2008-12-18 10:59

千萬不要做這種傻事
用Production mail server寄發eDM
對內是拖垮Server並造成其他email的延遲
對外可能會造成客戶端anti-spam設備的誤判把你的production mail server視為攻擊行為發起點
未來正常信要寄問題就大了 (自動被擋掉)
如果寄eDM頻率不是很高，建議花錢找外頭的顧問行銷公司代發
如果常常寄，建議另外用sendmail建一台smtp mail server，然後透過它發信
問題比較好處理

無奈啊~

無奈啊~
個人積分：0分
文章編號：9474706

0分

樓主

2008-12-18 11:05

bala@syr wrote:
千萬不要做這種傻事用...(恕刪)

謝謝大大的提醒,

這個問題之前也有和同事討論過,

但因寄送人數大約為200人(都是客戶),

而附加檔大小為99.5 KB

在評估公司一天的流量下覺得還可接受因此才同意放行

當然如果user日後類似這樣的行為變多了我們會另找行銷公司或另建一台server的,

謝謝~

Aaron945

Aaron945
個人積分：8分
文章編號：9476389

8分

9樓

2008-12-18 12:42

你好，因為個人工作需要，
大量發信這個我有VB+MAPI實現出來，
你可以參考下面的"VB入門網"中的"個個擊破區"中的"MS Office"中關於自動發信的部分，
http://www.vbguide.com.tw/webback2.asp
根據這個基礎，
我已經可以做到定時、定量的自動發送信件，
且可以夾帶附檔、單人收件(一封信就一個人)，
不過前提是它是利用電腦中Exchange mail account去送出，
所以我另外請MIS幫我設定一組測試帳號，
並架設一台server安裝Microsoft Outlook去發信，
提供你參考~

無奈啊~

無奈啊~
個人積分：0分
文章編號：9479246

0分

樓主

2008-12-18 15:59

Aaron945 wrote:
你好，因為個人工作需...(恕刪)

感恩再感謝~

正好可以好好學習一下,

謝謝~