Prompt for email account

Status
Not open for further replies.
T

Tom

I have three email accounts in Outlook 2007: an Excchange (ost) and 2

personal (pst.)

When I create a new mail message, I'd like to click on a button that then

prompts me for the account, and then creates a blank message (from the

selected account) for me to fill in.

I've done a fair amount of VBA Excel programming, but none in Outlook.

But I don't have the time to learn the Outlook object model for this

personal project.

Could someone provide me with the handful of lines necessary to accomplish

this?

Thanks!!

Tom
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
You don't want to get prompted automatically when creating a new message,

right? Why don't you then just hit the dropdown button for selecting an

account? That would be one click less.

if you want to code it yourself anyway, see the Accounts collection of the

Application.Session object. Display all the accounts in an appropriate

control on an MSForm, and write the selection into the

MailItem.SendUsingAccount property.

If you're looking for a ready-to-use solution, see the link in my signature

please. The SAM Add-in for Outlook can ask you for the sending account to

use.

Best regards

Michael Bauer

Am Mon, 5 Apr 2010 09:22:23 -0700 schrieb Tom:


> I have three email accounts in Outlook 2007: an Excchange (ost) and 2
> personal (pst.)

> When I create a new mail message, I'd like to click on a button that then
> prompts me for the account, and then creates a blank message (from the
> selected account) for me to fill in.

> I've done a fair amount of VBA Excel programming, but none in Outlook.

> But I don't have the time to learn the Outlook object model for this
> personal project.

> Could someone provide me with the handful of lines necessary to accomplish
> this?

> Thanks!!

> Tom
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
R Prompt asking the user to send email to folder as *.msg file Outlook VBA and Custom Forms 1
N Prompt for password when sending an email Exchange Server Administration 1
M Email Prompt Outlook VBA and Custom Forms 1
C VBA to prompt for Sent folder destination Outlook VBA and Custom Forms 3
Q Prompt button to auto turn on Out of Office Outlook VBA and Custom Forms 3
R Make Enter Network Password Prompt Go Away Automatically Using Outlook 0
K VBA to prompt and send a CC Outlook VBA and Custom Forms 6
K VBA - Prompt for reminder date time Outlook VBA and Custom Forms 7
S Have Rule or Quick Step PROMPT for custom FLAG Due/Reminder date Outlook VBA and Custom Forms 3
P Constant Username Password Prompt Using Outlook 2
A Prompt on exit to empty deleted items folder "for all accounts" does not work? Using Outlook 6
C Is there a way to prompt a user before deleting an item? BCM (Business Contact Manager) 4
S Prompt to add for text to existing subject line before sending. Using Outlook 9
S Trying to have a prompt to ask for text to be added to subject before sending. Using Outlook 3
O How to turn off the prompt to permanently delete messages upon exiting? Using Outlook 2
P Outlook security prompt after installing Add-in Outlook VBA and Custom Forms 3
Q Otlk 2007 does not block when in "always prompt for..." mode Outlook VBA and Custom Forms 2
Q sending mail when Otlook in 'always prompt for user name and passw Outlook VBA and Custom Forms 4
M Issue transferring Outlook 2016 email accounts & settings onto new computer Using Outlook 8
R Auto Assign Category colours to Incoming Emails based on whom the email is addressed Outlook VBA and Custom Forms 3
S Outlook email to configure setup for each mail Outlook VBA and Custom Forms 1
S Macro to extract email addresses of recipients in current drafted email and put into clipboard Outlook VBA and Custom Forms 2
A Is there an ID field you can use to pair a reply to the sent email? Outlook VBA and Custom Forms 4
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
M How create a Rule to filter sender's email with more that one @ sign Using Outlook 1
A Prepending Email Addrs with "Display Name <email>" Has Stopped Working Using Outlook 0
Bering Forward selected email without the original email appended Outlook VBA and Custom Forms 0
Aussie Rules Run a Script on an Incoming Email OK and then the Email reverts Outlook VBA and Custom Forms 0
W Reply to email Using Outlook 4
F Junk Email does not get added to the Blocked Sender List Using Outlook 4
B disappearing original when attach to email Using Outlook 1
W September 2020 - No Default Email Client message after Office Update Using Outlook 1
glnz O365 - How to combine the Inboxes for four email accounts into a single Inbox Using Outlook 7
glnz O365 - How to send from acct 2 but showing email name from acct 1 as From - alias? Using Outlook 0
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0
D Move Email with Attachment to Folder Outlook VBA and Custom Forms 3
E Asking user to select multiple options in a list in an email Outlook VBA and Custom Forms 0
K Use VBA to find Sender and Recipient from Microsfot 365 Journaled Email Items Outlook VBA and Custom Forms 3
B Add ComboBox Value to Body of Email Outlook VBA and Custom Forms 1
A Backup Email Accounts On OutLook For Mac 2016 (Microsoft 365 subscription version) Using Outlook 0
F VBA code to dock Styles whenever I write or edit an email Outlook VBA and Custom Forms 0
G Inbox shows old email Using Outlook 3
L Email with correct To address but displaying name of a related person Using Outlook 0
A Two Inboxes, Same Email? Using Outlook 3
B Adding signature to bottom of VBA reply email Outlook VBA and Custom Forms 1
J To delete the draft email Using Outlook 2
B VBScript doesn't run on Recipient Email Outlook VBA and Custom Forms 2
J Autoreply email recieved from specific sender after deleting some text from body. Using Outlook 0
M Outlook 2013 reminder email by using Outlook vba Outlook VBA and Custom Forms 2
D Sending email from Office 365 alias in Outlook Using Outlook 3

Similar threads

Top