嗨,我認爲這將有助於U
基本上有三種方法來做到這一點。
- 使用
mailto
打開Outlook應用程序
- 採用傳統的SMTP發送郵件
- 使用Outlook對象庫與添加的附件作爲應用程序的一個組成部分沿打開Outlook。
使用mailto鏈接
<A href=」mailto:[email protected]
?Cc:[email protected]
&Subject:Using Mailto to send mails&Body:this is a test」>.
這是做這件事的俗氣的方式。將屬性和郵件一起發送到
但是,如果您想在VB.Net LinkLabel中使用此功能。你可以這樣來做
Dim strURL as String strURL = 「mailto:[email protected]
?Cc:[email protected]
&Subject:Using Mailto to send mails&Body:this is a test」
Process.Start(strURL)
使用SMTP發送郵件
你開始編碼確保您導入相關的命名空間
Imports System.Web.Mail
這裏之前那張代碼
Public Function SMTPCall()
Dim strTo As String
Dim strFrom As String
Dim strBody As String
Dim strSubject As String
strTo = "[email protected]"
'Make sure you set the from address,
'some SMTP servers wouldn't send a mail without the FROM address
strFrom = "[email protected]" `
strBody = "Test on Sending Mail"`
strSubject = "Did this mail reach you yet?" `
SmtpMail.Send(strFrom, strTo, strSubject, strBody) `
End Function`
看起來不錯,但與abov的限制兩種方法是你不能發送附件。如果用戶想要訪問Outlook通訊簿併發送附件,該怎麼辦?
使用MSOutlook對象庫
下面是使用MS Outlook對象庫,具有VB.Net Outlook集成一小塊代碼。
- 首先實例化Outlook應用程序對象。
- 確保您在「項目參考」中添加參考。
右鍵單擊解決方案資源管理器中的引用。添加「Microsoft Outlook 10.0對象庫」。
公共功能OutlookCall() 「取的Outlook應用 昏暗oOutlook作爲新Outlook.Application()
'Create an instance of the MailItem
Dim oMailitem As Outlook.MailItem`
'Create an instance of the Attachment
Dim oAttach As Outlook.Attachment
oMailitem = oOutlook.CreateItem(Outlook.OlItemType.olMailItem)
oMailitem.To = 「[email protected]」
oMailitem.Cc = 「[email protected]」
oMailitem.Subject = "Email Integration with Outlook and VB.Net"
'txtFilepath is a text box that contains the path for attachment.
If (txtFilepath.Text = "") Then
MsgBox ("You did not attach a file")
Else
'Attach the file Path to the Mail Item
oMailitem.Attachments.Add(txtFilepath.Text)
End If
'PING….Displays the Outlook along with the To,Cc,Subject and Attachment
oMailitem.Display()
端功能的一個實例
有很多其他的您可以使用此Outlook對象執行的功能。希望這可以幫助。
注:
- Microsoft Outlook中應安裝在機器上。
- 將Microsoft Outlook假定爲默認郵件客戶端應用程序。
- 如果Outlook發送項目的現有實例已在運行,它仍然會創建新的郵件消息。
這VL幫助ü
這真是太棒了! –