Switching the FROM Inbox

by

Try this function

Function GetAccountOf(sEmailAddress As String, ByRef OLook As Object) As Object
  Dim oAccount As Object
  Set GetAccountOf = Nothing
  For Each oAccount In OLook.Session.Accounts
    If oAccount = sEmailAddress Then
      Set GetAccountOf = oAccount
      Exit Function
    End If
  Next oAccount
End Function

You can then replace the .From line with:

  .SendUsingAccount = GetAccountOf("[email protected]", OLook)

Edit: Follow-up to comments below:

If the above doesn’t work then I suspect there’s something with your outlook that is causing this. You need to think of ways/questions to help determine the problem, such as

  • Is the account you want to use completely set-up within outlook?
  • When you send email manually from this account does outlook ask you for password?

Try also to think of test code you can use to narrow down the possibilities that may be the cause of the problem. for example try to run these subroutines and see if the first code actually lists your desired account. Does the second code result in the account being Nothing? If so, perhaps an option is to delete the account and add it again to outlook, which may help reset something that was causing the problem.

Sub ShowAllAccounts()
  Dim OLook As Object
  Dim oAccount As Object
  Set OLook = CreateObject("Outlook.Application")
  For Each oAccount In OLook.Session.Accounts
    MsgBox oAccount.DisplayName
  Next oAccount
End Sub

Sub DoesAccountExist()
  Dim OLook As Object
  Set OLook = CreateObject("Outlook.Application")
  If GetAccountOf("[email protected]", OLook) Is Nothing Then
    MsgBox "Account doesn't exist"
  End If
End Sub

Try to make up some other code similar to this and please get back if you are still stuck.

Edit 2:

You need to make sure you set the SendUsingAccount property before you .Display your email: Outlook if funny like that 🙂

Try this:

Dim OLook As Object, Mitem As Object, OlAttachment As Object
Dim fso As Object
Dim remail As Range
Dim acc As Object
Set Mitem = OLook.CreateItem(0)

With Mitem
                .SendUsingAccount = GetAccountOf("[email protected]", OLook)       
                .Display

                'send to:
                .To = send_list
            
                'send from:
                '.From = from_list
            
            
                'cc to:
                .CC = cc_list
                
                'bcc to:
                .BCC = bcc_list

More Related Contents:

  1. Get reference to additional Inbox
  2. How to add default signature in Outlook
  3. How do I trigger a macro to run after a new mail is received in Outlook?
  4. Outlook VBA – Run a code every half an hour
  5. Can I iterate through all Outlook emails in a folder including sub-folders?
  6. Download attachment from Outlook and Open in Excel
  7. Embed picture in outlook mail body excel vba
  8. How to move each emails from inbox to a sub-folder [duplicate]
  9. Save attachments to a folder and rename them
  10. Outlook Reply or ReplyAll to an Email
  11. VBA Search in Outlook
  12. Distinguish visible and invisible attachments with Outlook VBA
  13. Check for the senderEmailAddress
  14. Removing a string that includes CRLF characters from body of e-mail
  15. How to insert text into Outlook email editor using VBA
  16. How do you extract email addresses from the ‘To’ field in outlook?
  17. How do I open an outlook .msg file from my harddrive that is NOT in outlook?
  18. Add a “CC recipient” to Outlook 2010 VBA
  19. Using visual basic to access subfolder in Inbox?
  20. When is a MailItem not a MailItem? [closed]
  21. Search structured text in Outlook body
  22. How to add an embedded image to an HTML message in Outlook 2010
  23. Iterate all email items in a specific Outlook folder
  24. Restrict Outlook Items by Date
  25. VBA Outlook Mail .display, recording when/if sent manually
  26. MS Access VBA: Sending an email through Outlook [closed]
  27. Where does Outlook store the VBA code files?
  28. Working with current open email
  29. Debugging an Outlook 2007 script fired by a rule
  30. Runtime error 287. Sending Emails through Outlook using VBA in Access

Leave a Comment