Create appointment/meeting from shared mailbox

Status
Not open for further replies.
B

BRZ

Member
My code works when Outlook is open, but when closed it only sends from my primary address. Anyone have any ideas?

Code: 
Dim olApp As Outlook.Application, olAppt As Outlook.AppointmentItem, myRecipient As Outlook.Recipient, olNS As Outlook.NameSpace 
 
Dim i As Long, blnOLOpen As Boolean, strBody As String, olAttach As Outlook.Attachments 
 
On Error Resume Next 
 
Set olApp = GetObject(, "Outlook.Application") 
 
blnOLOpen = True 
 
If olApp Is Nothing Then
   Set olApp = CreateObject("Outlook.Application") 
 
End If 
 
On Error GoTo 0 
 
Set olNS = olApp.GetNamespace("MAPI") 
 
Set olFromBox = olNS.CreateRecipient("TheSharedBox") 
 
olFromBox.Resolve 
 
If (olFromBox.Resolved) Then
   Set oCalendar = olNS.GetSharedDefaultFolder(olFromBox, olFolderCalendar)
   On Error Resume Next
   Set olAppt = oCalendar.Items.Add("IPM.Appointment")
   If (Err.Number) Then
       MsgBox "You do not have access to create a meeting from the '" & SEND_FROM_MAILBOX & "' mailbox!", vbExclamation
       GoTo CleanUp
   End If 
 
Else
   MsgBox "Unable to locate the '" & SEND_FROM_MAILBOX & "' mailbox!", vbExclamation
   GoTo CleanUp 
 
End If
 
Diane Poremsky said:
The shared box isn't loaded in the profile when outlook is closed so the macro falls back to the default account.

It might work if you use SendAs rather than resolving the from name. Something like the macro at http://www.slipstick.com/developer/code-samples/send-email-address-vba/
Click to expand...

There is no SendAs property for olAppointmentItem, is there any way to load all info into the profile?

Set olNS = olApp.GetNamespace("MAPI")

olNS.Logon Profile:="Outlook", ShowDialog:=False, NewSession:=True
 
Status
Not open for further replies.
< Re-use old pst file? | Whose brilliant idea was to make it more difficult to scroll in Outlook? >
Similar threads
Thread starter Title Forum Replies Date
T How to create meeting recurrences that are not available in the appointment screen? Using Outlook 1
Chiba Create an appointment for all the members Outlook VBA and Custom Forms 1
Nessa Can't create new appointment Using Outlook 1
G Create an Appointment at the Contact's Address From Email Outlook VBA and Custom Forms 0
Diane Poremsky Create Task or Appointment and Insert Selected Text Using Outlook 0
Diane Poremsky Create Appointment From Email Automatically Using Outlook 0
M receive mail when appointment category changes and create task from appointment Outlook VBA and Custom Forms 0
B VBA Code to create appointment from email Outlook VBA and Custom Forms 1
Diane Poremsky Create an Outlook appointment from an email message Using Outlook 4
Diane Poremsky Create an Appointment Diary Using Outlook 0
J Create an appointment from Contact list with the Company name in the Subject line Using Outlook 1
M Create an Appointment from XL Spreadsheet in a Shared Calendar. Outlook VBA and Custom Forms 1
anoble1 How to create an email with a link to add a calendar appointment Using Outlook 1
I how to create appointment using saved template onto public folder shared calendar Using Outlook 3
M right click contact to create an appointment Using Outlook 4
P Create appointment to custom (shared) outlook calendar Outlook VBA and Custom Forms 3
R Create appointment skipping weekends and within a timeframe Outlook VBA and Custom Forms 1
E Create Rule to Forward Email if Subject Begins With Using Outlook 2
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
B Modify VBA to create a RULE to block multiple messages Outlook VBA and Custom Forms 0
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
B How to create a button that sorts and selects the most recent message with ONE click Using Outlook 2
J PSA: How to create custom keyboard shortcut for "Paste Unformatted Text" in Outlook on Windows Outlook VBA and Custom Forms 1
W Create a Quick Step or VBA to SAVE AS PDF in G:|Data|Client File Outlook VBA and Custom Forms 1
Wotme create email only data file Using Outlook 1
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
J How to create a drop down user defined field that will appear on an inbox view Outlook VBA and Custom Forms 8
Commodore Any way to create "from-only" account on Outlook 2021? Using Outlook 1
L Capture email addresses and create a comma separated list Outlook VBA and Custom Forms 5
N Can't create NEW GROUP and add/remove a member from existing Group in Outlook Using Outlook 1
NVDon Create new Move To Folder list Outlook VBA and Custom Forms 0
C Create Meeting With Custom Form Outlook VBA and Custom Forms 2
D Create advanced search (email) via VBA with LONG QUERY (>1024 char) Outlook VBA and Custom Forms 2
G Create ordinal numbers for birthday Outlook VBA and Custom Forms 2
O Outlook 365 - How to create / copy a new contact from an existing one? Using Outlook 5
D Create new email from the received Email Body with attachment Outlook VBA and Custom Forms 10
A How to create fixed signatures for aliases that process through GMAIL? Outlook VBA and Custom Forms 0
P Can I create a Rule that sends me an email when I get a Task? Using Outlook 2
M How create a Rule to filter sender's email with more that one @ sign Using Outlook 1
B Can I create a local PST file for SPAM on a drive that is usually disconnected? Using Outlook 3
S Create a clickable custom column field Outlook VBA and Custom Forms 0
O Create a custom contact form - questions before messing things up... Outlook VBA and Custom Forms 4
L automaticaly create a teams meeting with a sync Using Outlook 0
D Can Exchange Admin Center create a pst for users email/contacts/calendar? Exchange Server Administration 0
S Create A Search Folder That Looks For Message Class? Outlook VBA and Custom Forms 0
F How to create phone number as links in notes of Contacts Using Outlook 2
A Create date folder and move messages daily Outlook VBA and Custom Forms 1
C Create new Message with shared contacts & BCC'ing recipients Outlook VBA and Custom Forms 0
O Multiple email accounts - hesitate to create a new profile Using Outlook 3
G Can't create Folder Groups in Outlook 2013 Using Outlook 0

Similar threads

Back
Top