Sending email from a specified account (Outlook)

[K3JAE]

I have struggled to understand how to set my program to send email from a specified account in Outlook. I have multiple accounts and need to send email from a specific account so replies (if any are warranted) are sent back to the same account.

I have looked multiple places and either I am too dense to understand or I am completely missing the mark. The code below successfully opens Outlook populates the receiver's address, sets the subject and body fine. It just does not send via the proper account, always using the default email account, which forces me to adjust the sending account each time in Outlook an email is being sent. I just cannot figure out how to tell Outlook to use a specific eMail account.

Private Sub RtbBillEmail_MouseDoubleClick(sender As Object, e As EventArgs) Handles tbBillEmail.MouseDoubleClick
        Cursor = Cursors.Hand

        Dim oOLook As Object
        Dim oEMail As Object

        Dim eMailSubject As String = "Load: " + tbBrokerLoadNumber.Text + " Inquiry"
        Dim eMailBody As String = "ENTER INQUIRY HERE"
        Dim eMailCC As String = "[email protected]"
        Dim eSender As String = "[email protected]"

        oOLook = CreateObject("Outlook.Application")

        oOLook.Session.Logon()
        oEMail = oOLook.CreateItem(0)
        oEMail.Display(False)

        With oEMail
            .Sender = eSender
            .To = tbAgentEmail.Text
            .CC = ""
            .BCC = eMailCC
            .Subject = eMailSubject
            .HTMLBody = eMailBody
            .ReadReceiptRequested = True

            'Use the .Send() to auto Send the mail - not currently being used.'
            '.Send()
        End With

        Cursor = Cursors.Default
    End Sub

[techgnome]

The short answer is you can't ... You're opening Outlook and it's going to open using what ever profile it's designated for it.
If you want to send from an alt account, you're going to need to connect to an SMTP server, and send it - not that much differently, but with the From information set. Downside of this, the email doesn't end up in the Outbound or Sent folder for the account.

I'd be happily proven wrong on this, but that's the way it's worked for me in the past. (to get around the lack of a record in send, we'd also BCC send it to the account so that it at least ends up in the inbox so that sales reps would know that it was sent.

-tg

[jdc2000]

It looks like it can be done with VBA, so there may be a way to use VB .Net also.

https://www.extendoffice.com/documen...send-from.html

[.paul.]

It looks like it can be done with VBA, so there may be a way to use VB .Net also.

https://www.extendoffice.com/documen...send-from.html

That's OutLook VBA. It works with OutLook because it's part of OutLook...

[techgnome]

It looks like it can be done with VBA, so there may be a way to use VB .Net also.

https://www.extendoffice.com/documen...send-from.html

That works because it's manipulating Outlook. The alt account still has to be setup up in the Outlook client in order for that to work.

-tg

[ChrisE]

here a sample to send from the default Outlook, the Line you will have to change is..

oNameSpace.Logon(Nothing, Nothing, True, True)

instead of Nothing you place the MAPI Profil of the Account

Option Strict On

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Outlook


Public Class Form1
    Private oApp As Outlook.Application
    Private oNameSpace As Outlook._NameSpace
    Private oOutboxFolder As Outlook.MAPIFolder

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        oApp = New Outlook.Application()
        oApp = New Outlook.Application()
        oNameSpace = oApp.GetNamespace("MAPI")
        oNameSpace.Logon(Nothing, Nothing, True, True)

        oOutboxFolder = oNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderOutbox)
        addToOutBox("[email protected]", "mySubject", "myBody", "D:\2013.pdf")
        oNameSpace.Logoff()
    End Sub

    Public Sub addToOutBox(ByVal toValue As String, ByVal subjectValue As String, ByVal bodyValue As String, ByVal mAttach As String)
        Dim oMailItem As Outlook._MailItem = CType(oApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook._MailItem)
        oMailItem.To = toValue
        oMailItem.Subject = subjectValue
        oMailItem.Body = bodyValue
        oMailItem.Attachments.Add(mAttach)
        oMailItem.SaveSentMessageFolder = oOutboxFolder

        'adds it to the outbox
        oMailItem.Save()

        'oMailItem.Display(True)


        'direct versenden
        'oMailItem.Send()

    End Sub

[K3JAE]

It looks like it can be done with VBA, so there may be a way to use VB .Net also.

https://www.extendoffice.com/documen...send-from.html

I did see this article prior to posting my original message but was unsure if that would even work. Especially when MS decides to force update Office 365 (and windows for that matter) and reset things back to the way they think we should want them, and how they definitely want them with little care about how we actually want them.

[drrajarampatil]

The short answer is you can't ... You're opening Outlook and it's going to open using what ever profile it's designated for it.
If you want to send from an alt account, you're going to need to connect to an SMTP server, and send it - not that much differently, but with the From information set. Downside of this, the email doesn't end up in the Outbound or Sent folder for the account.

I'd be happily proven wrong on this, but that's the way it's worked for me in the past. (to get around the lack of a record in send, we'd also BCC send it to the account so that it at least ends up in the inbox so that sales reps would know that it was sent.

-tg

You can only acheive VBA to use particular outlook profile by making it a "Default" email & "Default" outlook data file in the Account setting of outlook.
Whether it can be done programmatically using VBA & be reverted? I have no idea! Experts may help on it. (This may be worth a try : "https://www.extendoffice.com/documents/outlook/5600-outlook-choose-account-to-send-from.html")