在VB中,您可以使用Outlook對象模型來發送電子郵件。下面是一個示例代碼,可以幫助您發送電子郵件:
Imports Outlook = Microsoft.Office.Interop.Outlook
Public Sub SendEmail()
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
' 創建Outlook應用程序對象
olApp = New Outlook.Application
' 創建郵件對象
olMail = olApp.CreateItem(Outlook.OlItemType.olMailItem)
' 設置電子郵件的屬性
With olMail
.Subject = "這是郵件的主題"
.Body = "這是郵件的內容"
.To = "收件人郵箱地址"
.CC = "抄送郵箱地址"
' 如果需要發送附件,可以使用以下代碼:
'.Attachments.Add("附件路徑")
' 如果需要發送HTML格式的郵件,可以使用以下代碼:
'.HTMLBody = "這是HTML格式的郵件內容"
' 發送郵件
.Send()
End With
' 釋放對象
olMail = Nothing
olApp = Nothing
End Sub
請注意,您需要確保已經安裝了Outlook并且正確引用了Outlook對象庫。您可以在VB的“引用”中添加對“Microsoft Outlook XX.X Object Library”的引用。