Email Out Account Depending on PC Name

[DMT Dave]

Hi Guy's is there a method of changing email out account dependant on which machine and which user has logged in ?



PC1 has got 2 accounts

PC2 has got 3 accounts

Db1 needs to use outaccount(2) on PC1
Db1 needs to use outaccount(3) on PC2

PC1 and db1

I have got If me.User = "DM" Then me.txtOutAcc = "2" End IF
(Now Changed the outaccount(2) to outaccount(Forms!frmMainMenu!txtOutAcc)
This is fine

PC2 and db1
I have got If me.User = "SK" Then me.txtOutAcc = "3" End IF
(Now Changed the outaccount(3) to outaccount(Forms!frmMainMenu!txtOutAcc)
This is fine

My hurdle is the following scenario

If User SK Logs into PC1 and The txtOutAcc is going to be 3
PC1 only has 2 accounts which can't work and comes up array index out of bounds due to only 2 accounts

I hope i have explained this ok !!!!!!

So i thought is there another criteria i can add in such as:

my thought is:

If me.user = SK Then
If me.environ PC Name = PC1
The me.txtOutAcc = "2"

Then maybe i can keep the environ option all of the time
If me.user = SK Then
If me.environ PC Name = PC2
The me.txtOutAcc = "3"

Am i barking up the right or wrong tree ???

Much appreciated

[Welshgasman]

Add the missing account to PC1?

[DMT Dave]

Hi Welshgasman as always thank you for your input, glad you understood the question as i was a little long winded explaining

But that's a very simple answer i suppose, i will give that a go

Do you know how to have the same 3 accounts in the same order ?

ie:
account1 Info@you
account2 info@me
account3 info@both

Account 2 and 3 are in different order when selecting the from above the to line in outlook

So PC1 account2 maybe account3 on PC2

I would need them in the same order i guess ?

[Welshgasman]

In my limited experience, they go in the order of the drop down, when you select an account?
So if you give them the same names, they should be in the same order.?

You could use this function in outlook to check?

Public Function ListEMailAccounts(AcctToUSe As String) As Integer
    Dim outApp As Object
    Dim i As Integer
    Dim AccNo As Integer
    Dim emailToSendTo As String
    
    Set outApp = CreateObject("Outlook.Application")
    'emailToSendTo = "xxxxx@gmail.com"                    'put required email address
    AccNo = 1
    'if smtp address=email we want to send to, acc no we are looking for is identified
    For i = 1 To outApp.Session.Accounts.Count
        'Uncomment the Debug.Print command to see all email addresses that belongs to you
'Debug.Print "Acc name: " & OutApp.Session.Accounts.Item(i) & " Acc number: " & i & " , email: " & OutApp.Session.Accounts.Item(i).SmtpAddress
        'If OutApp.Session.Accounts.Item(i).SmtpAddress = emailToSendTo Then
        If outApp.Session.Accounts.Item(i).DisplayName = AcctToUSe Then

            AccNo = i
            Exit For
        End If
    Next i
    ListEMailAccounts = AccNo
    Set outApp = Nothing
End Function

Note the comments and amend to suit.

HTH

[DMT Dave]

Thank you, much appreciated

[Minty]

The underlying account index (1) (2) etc is quite arbitrary from my experience, so you have to loop through the available accounts to get to the correct one.
I always thought the default account was (1) but got caught out by that assumption once as well.

[DMT Dave]

Hi Guy's thank you for your input, i went down welshgasmans idea so my way thats done it

db1 = outacount 1 Any PC
db2 = outacount 2 Any PC
db3 = outacount 3 Any PC

By using on db1 OnFormOpen, me.txtOutAcc = "1"
By using on db2 OnFormOpen, me.txtOutAcc = "2"
By using on db3 OnFormOpen, me.txtOutAcc = "3"

Regardless of user name, I've got this working

Thank you

[Gicu]

Just curious why use the account index and not the account name (email) when deciding which one to use. That way you wouldn't need to have all accounts on all PCs, as you know the user so just added the account name to the user table.
https://www.rondebruin.nl/win/s1/outlook/account.htm

Cheers,

[DMT Dave]

Hi Vlad, that is better, i have adapted to that

I have a different post coming up