當前位置:首頁 » 自動清洗 » vb怎樣自動發送郵件
擴展閱讀
怎樣恢復蘋果手機簡訊 2024-12-25 21:50:37
怎樣提取舊軟體 2024-12-25 21:39:15

vb怎樣自動發送郵件

發布時間: 2022-01-23 16:36:13

⑴ 在里VB里自動發送郵件

VB里發送郵件的代碼
http://www.zdnet.com.cn/developer/code/story/0,3800066897,39190423,00.htm

⑵ VB怎麼實現發送郵件

可以用winsock發郵件,具體代碼有點多,就不打了。
可以把控制項綁在資源文件里再釋放。
不過那樣程序體積就太大了。不適合做木馬。

⑶ 如何用VB實現直接發送郵件

用VB編寫收發電子郵件程序
作者: 出處:Yesky
發送和接收電子郵件,對於某些執行特殊任務的應用程序而言,是一個十分有用的功能。例如,一個監視網路伺服器資源使用情況的工具軟體,如果它具有自動發送電子郵件的功能,那麼當它發現伺服器的資源使用已經接近事先設定的臨界狀態時,便可以向系統管理員發送一封告警的電子郵件,從而使系統管理員能夠及時地採取措施,以避免重大事故的出現。在Visual Basic中,應用程序可以通過調用微軟公司的MAPI(Messaging Application Programming Interface,消息應用程序編程介面),實現收發電子郵件的功能。筆者將在本文中結合簡單實例,向大家介紹在VB程序中實現電子郵件收發功能的編程方法。

編制具有收發電子郵件功能的VB程序,必須使用Visual Basic 4.0以上的版本,因為只有4.0以上的Visual Basic才帶有兩個實現電子郵件收發功能的核心控制項:MAPI會話控制項和MAPI消息控制項。MAPI會話控制項用於建立和控制一個Microsoft Mail會話,MAPI消息控制項用於創建和收發郵件消息。此外,程序必須運行在採用遵從MAPI的消息系統(如:Microsoft Exchange、Microsoft Mail、Outlook等)的環境中。

在開始編程之前,首先需要將MAPI控制項加入VB工具箱。具體操作是:在VB菜單欄中選擇Tools菜單項中的Custom Controls命令,調出"Custom Controls"對話框,在其中的"Available Controls"列表框中選中"Microsoft MAPI Controls"表項,然後按"OK"命令按鈕退出該對話框。此後,工具箱中將新添兩個圖標,這就是MAPI會話控制項和MAPI消息控制項的圖標。

下面,筆者將以兩個簡單的VB程序為例,分別介紹發送郵件和接收郵件的程序編制方法。

郵件發送程序

郵件發送程序的基本處理過程是:根據用戶輸入信息組成郵件,然後使用MAPI消息控制項的Send方法將郵件發出。編程步驟如下:

1、新建一個VB項目。

2、將預設窗體Form1的Caption屬性設置為"發送郵件"。

3、將MAPI控制項加入VB工具框。

4、在Form1中加入一個MAPI會話控制項MAPISession1和一個MAPI消息控制項MAPIMessages1。

5、在Form1中加入三個文本框控制項,將它們的Name屬性分別設置為txtSendTo、txtSubject、txtMessage,並將txtMessage的Multiline屬性設置為True。這三個文本框控制項將分別用於填寫郵件的收件人、主題和內容。

6、在Form1中加入三個標簽控制項,將它們的Caption屬性分別設置為"收件人"、"主題"和"內容",並將它們放在合適的位置用以標注相應的文本框控制項。

7、在Form1中加入一個命令按鈕控制項,將其Caption屬性和Name屬性分別設置為"發送"和"cmdSend"。

8、將下列代碼加入Form1的Form_Load事件:

Private Sub Form_Load()
MAPISession1.SignOn
End Sub

9、將下列代碼加入Form1的Form_Unload事件:

Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub
以上是一部分, 後面的參見參考資料

⑷ vb自動後台發送郵件

On Error Goto ErrInfo Dim Email As Object Const NameSpace = " http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "[email protected]" '你的郵箱地址 Email.To = "[email protected]" '要發往的地址 Email.Subject = "你好這是測試" '主題 Email.Textbody = "這只是一個測試" '正文 Email.AddAttachment "E:\Test.txt" '附件,可以添加多個 Email.AddAttachment "D:\Test.EXE" With Email.Configuration.Fields .Item(NameSpace & "sensing") = 2 .Item(NameSpace & "smtpserver") = "smtp.126.com" '發送郵件伺服器 .Item(NameSpace & "smtpserverport") = 25 .Item(NameSpace & "smtpauthenticate") = 1 .Item(NameSpace & "sensername") = "test" '郵箱用戶名 .Item(NameSpace & "sendpassword") = "******" '密碼 .Update End With Email.Send MsgBox "發送成功" Exit Sub ErrInfo: Msgbox "發送失敗!"

⑸ 如何用VB編寫自動檢測郵件發送軟體

抓包嘛。
木馬發送信件的時候,密碼本來就是透明的。郵箱的密碼一般都沒有採取什麼加密措施。
你去下載一個抓包的。

⑹ 誰知道用VB如何自動發送一封自定義的郵件到指定的郵箱

使用微軟的 MAPI 控制項,具體使用方法見參考資料

⑺ VB如何自動發郵件到指定的郵箱

發郵件啊,那個得有個smtp伺服器跟你響應啊。不然我給你個發郵件的代碼?vb的代碼看看吧~~

這個是微軟的實例,你把這個圖片下載下來,修改成rar,然後就可以解壓了。

⑻ 用VB編寫一個全自動的電子郵件的發送程序。

用個JMail組件就行了,下一個看看吧!給你個ASP的示例,VB跟ASP差不了多少,調用方法之類都還行,拿過去改改就可以用了!
下載地址:http://down.chinaz.com/S/10368.asp
相信你也找過一些這類的代碼,可能你用過的方法中就有可以用的,變通一下方法就好了!提供方法給你,僅供參考!

VB還可以用MAPI進行,核心控制項:MAPI會話控制項和MAPI消息控制項。MAPI會話控制項用於建立和控制一個Microsoft Mail會話,MAPI消息控制項用於創建和收發郵件消息。此外,程序必須運行在採用遵從MAPI的消息系統(如:Microsoft Exchange、Microsoft Mail、Outlook等)的環境中。

編程需要將MAPI控制項加入VB工具箱。全名是:"Microsoft MAPI Controls"。加入後,工具箱中將添上MAPI會話控制項和MAPI消息控制項的圖標。

下面將以簡單的VB程序為例,介紹發送郵件程序編制方法。
郵件發送程序的基本處理過程是:根據用戶輸入信息組成郵件,然後使用MAPI消息控制項的Send方法將郵件發出。編程步驟如下:

1、新建一個VB項目。
2、將預設窗體Form1的Caption屬性設置為"發送郵件"。
3、將MAPI控制項加入VB工具框。
4、在Form1中加入一個MAPI會話控制項MAPISession1和一個MAPI消息控制項MAPIMessages1。
5、在Form1中加入三個文本框控制項,將它們的Name屬性分別設置為txtSendTo、txtSubject、txtMessage,並將txtMessage的Multiline屬性設置為True。這三個文本框控制項將分別用於填寫郵件的收件人、主題和內容。
6、在Form1中加入三個標簽控制項,將它們的Caption屬性分別設置為"收件人"、"主題"和"內容",並將它們放在合適的位置用以標注相應的文本框控制項。
7、在Form1中加入一個命令按鈕控制項,將其Caption屬性和Name屬性分別設置為"發送"和"cmdSend"。
8、將下列代碼加入Form1的Form_Load事件:
Private Sub Form_Load()
MAPISession1.SignOn
End Sub
9、將下列代碼加入Form1的Form_Unload事件:
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub
10、將下列代碼加入cmdSend的Click事件:
Private Sub cmdSend_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text
.MsgSubject = txtSubject.Text
.MsgNoteText = txtMessage.Text
.SessionID = MAPISession1.SessionID
.Send
End With
MsgBox "郵件發送完畢!", , "發送郵件"
End Sub

在填寫完郵件的收件人、主題和內容後,按"發送"命令按鈕,如果沒有出現運行時錯誤提示,那麼就表明郵件已經成功地發往目的地了,否則,請檢查填寫的收件人地址是否准確無誤以及系統中運行的消息系統工作是否正常

⑼ 如何編寫自動發郵件的程序。用VB編寫,開機自動後台運行,並發送郵件到指定郵箱。

現在很難了,因為郵局都設置了驗證。你這分估計是分不出去了。

⑽ 用VB怎樣實現發送郵件功能

用這個方法可以不通過OutLook 直接用 vb 發送郵件: \'Wait 為延時你可用API或自己做!不延時時發送可能不成功的! \'strFrom :誰發的 \'strTo :發給誰