Send email by Using POP3 : Email « Outlook « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Outlook
3. Email

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

 

Related examples in the same category