Excel 2016 VBA - Insert a variable

[Midas1]

Hi,

Set .SendUsingAccount = .Session.Accounts.Item("123@email.com")   work

Set .SendUsingAccount = .Session.Accounts.Item(Range("B3").Value)   does not work


Dim MyEmail As String
MyEmail = Range("B3").Value
Set .SendUsingAccount = .Session.Accounts.Item(Range(MyEmail)  does not work

How could I add my Range or my variable into the Session.Accounts.Item ??


Thanks,

 

[Jimmypop]

Hi there

It looks like you are missing a closing parentheses... try

Set .SendUsingAccount = .Session.Accounts.Item(Range("B3").Value))

or

Set .SendUsingAccount = .Session.Accounts.Item(Range(MyEmail))

 

[RoryA]

Either of the original codes should work as long as the correct sheet is being referenced and B3 contains the same value as the original mailbox name.

 

[Midas1]

Either of the original codes should work as long as the correct sheet is being referenced and B3 contains the same value as the original mailbox name.

Dim MyEmail As String
MyEmail = Sheets("Mail").Range("B3").Value

Set .SendUsingAccount = .Session.Accounts.Item(Range(MyEmail))

Is it the correct way to reference the sheet? Still not working

 

[RoryA]

Dim MyEmail As String
MyEmail = Sheets("Mail").Range("B3").Value

Set .SendUsingAccount = .Session.Accounts.Item(Range(MyEmail))

Is it the correct way to reference the sheet? Still not working

Just:

.Session.Accounts.Item(MyEmail)

 

[Midas1]

Just:

.Session.Accounts.Item(MyEmail)

oops my fault with the copy and paste. Yes, it works now thanks!