Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

Send email by Using POP3

Public Sub SendUsingPOP3()     Dim myMailItem As Outlook.MailItem     Dim colAccounts As Outlook.Accounts     Dim oNS As Outlook.NameSpace     Dim oAccount As Outlook.Account     Dim strUser As String     Dim strAddress As String     Dim strAccountName As String     Dim blnFound As Boolean     blnFound = False     Set oNS = Application.GetNamespace("MAPI")     Set colAccounts = oNS.Accounts     For Each oAccount In colAccounts         If oAccount.AccountType = OlAccountType.olPop3 Then             strAddress = oAccount.SmtpAddress             strUser = oAccount.UserName             strAccountName = oAccount.DisplayName             blnFound = True             Exit For         End If     Next     If blnFound Then         Set myMailItem = Application.CreateItem(olMailItem)         myMailItem.Subject = "Sent using: " & strAccountName         myMailItem.Body = "Sent by " & strUser & vbCrLf & "Sent using the " & strAddress & " SMTP address."         myMailItem.Recipients.Add ("test@test.com")         myMailItem.Recipients.ResolveAll         Set myMailItem.SendUsingAccount = oAccount         myMailItem.Send     End If End Sub