現在有一個需求是，給不同的郵箱發送不同的附件資訊，在網上查了代碼的撰寫，可運行時總是出錯。
代碼如下
Private Sub Command1_Click()
Dim sjr, fjmc As string '收件人郵箱，附件名稱
Dim cm As New CDO.Message 'CDO.message是一個發送郵件的物件
sjr = "[email protected]"
fjmc = "\111.pdf"
cm.From = "[email protected]" '設定發信人的郵箱"
cm.To = sjr '設定收信人的郵箱
cm.Subject = "主題:郵件發送試驗" '設定郵件的主題
cm.HtmlBody = "郵件發送試驗" '使用html格式發送郵件
cm.AddAttachment App.Path & fjmc '發的附件名與地址
stUl = "http://schemas.microsoft.com/cdo/configuration/" '微軟服務器網址，固定的，不用改的
With cm.Configuration.Fields
.Item(stUl & "smtpserver") = "smtp.qq.com" 'SMTP服務器地址
.Item(stUl & "smtpserverport") = 25 'SMTP服務器埠
.Item(stUl & "sendusing") = 2 '發送埠
.Item(stUl & "smtpauthenticate") = 1 '需要提供用戶名和密碼，0是不提供 '
.Item(stUl & "sendusername") = "4645419" '發送方郵箱名稱，不用輸入@后面的東西
.Item(stUl & "sendpassword") = "19500308" '發送方郵箱密碼
.Update
End With
cm.Send '最后當然是執行發送了
Set cm = Nothing
End Sub
‘’已以做了CDO的參考
提示的錯誤是
實時錯誤'-2147220975(8004021)':
下面是亂碼，最后有a not available
除錯指向的是cm.Send '最后當然是執行發送了
uj5u.com熱心網友回復：
你打開這個網址看一下，這個郵件發送功能可能已經不可用了stUl = "http://schemas.microsoft.com/cdo/configuration/" '微軟服務器網址，固定的，不用改的
uj5u.com熱心網友回復：
你要不找找jmail組件發郵件的試試uj5u.com熱心網友回復：
http://lopechu6.blogspot.com/2012/12/vb6jmail.htmluj5u.com熱心網友回復：
現在用QQ郵箱發了uj5u.com熱心網友回復：
不太明白呀，上面的程式是照貓畫虎的，不太明白里面的陳述句
uj5u.com熱心網友回復：
https://www.baidu.com/s?wd=實時錯誤%27-2147220975(80040211)
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/55868.html
標籤：非技術類