Creating Meeting Request Custom form and distribute it to domain user HELP!!!


Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
Good day, Long story but please try to help me in this one

This is the detais,

I had create a custom form for meeting request and publish it in My Exchange server 2010 Public Folder, everything is OK, but here are the problems

- I use a VBA Macro that will run this form and add it as a button (testing on my PC and some other PC) but I notice that the script is not always working, This is the script I write (found it in Microsoft) OL2000: How to Open a Form from a Toolbar Button

Sub DisplayForm()
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
stremail = objUser.Get("mail")
Set myFolder1 = Session.Folders("Public Folders - " & stremail)
Set myFolder2 = myFolder1.Folders("All Public Folders")
Set myFolder3 = myFolder2.Folders("Public Data")
Set myItem = myFolder3.Items.Add("IPM.Appointment.custmeet")

End Sub


after troubleshooting I found that the script will fail for some users who have several email account that dont match to exchange policy, like this case:

userA have login name: UserA

Email address:; SMTP in Exchange)

so this VBA will fail as the returned result will be different than the actual user, this code will get the email ( not

what I need first is how can I read the current account outlook is using (I dont want to make LDAP query)

I am talking about reading this value1.png

can some one help

2- another major problem is when the user make a new meeting request using this form the user getting a message telling that outlook wont be able to track this reqeust as its not in the default user calender folder.. what can i do to replicate the calender request to the default folder or what can I do

Thanksssssssssss alot for reading all this..