Outlook VBA .SendUsingAccount ketika tidak ada akun yang tersedia

Cerita: Di Aplikasi Outlook ada satu akun default/pengguna dan juga kotak masuk tambahan, kalender (sebut saja 2nd_Account) dll. ditambahkan (terlihat) sebagai folder berdasarkan izin Exchange Server.

Saya perlu membuat item janji temu baru secara terprogram dan mengirimkannya atas nama 2nd_Account. Soalnya di Application.Session hanya ada 1 akun (yang default).

Jika dilakukan secara manual oleh pengguna, maka item yang dibuat dari folder 2nd_Account olCalendar adalah SendOnBehalf dari 2nd_Account, meskipun tidak termasuk dalam koleksi Akun. Ada ide?

Terima kasih


outlook vba outlook-2010
person Sławomir Mytych    schedule 03.09.2018    source sumber

Jawaban (2)


arrow_upward
0
arrow_downward

Buat janji temu di folder Kalender akun tersebut - gunakan Store.GetDefaultFolder alih-alih Namespace.GetDefaultFolder.

person Dmitry Streblechenko    schedule 03.09.2018
comment
Sebenarnya diselesaikan dengan mengulang koleksi folder NameSpace.Folders dan menetapkan folder yang diinginkan ke variabel dan menggunakan Application.CreateItemFromTemplate(strPath, olFolder) - person Sławomir Mytych; 04.09.2018

arrow_upward
0
arrow_downward

Inilah cara saya menelusuri akun yang diinstal di Outlook:

Set MAPISession = objOutlook.Application.Session     'Get the MAPI Outlook session
Dim WantedAccount as String ' Set to preferred account name

Set MAPIMailItem = objOutlook.CreateItem(olMailItem)  'Create a new mail message
With MAPIMailItem
  For Each Account In MAPISession.Accounts
    If Account = WantedAccount Then
      .SendUsingAccount = Account
      Exit For
    End If
  Next
person Community    schedule 03.09.2018
comment
Terima kasih tetapi intinya hanya satu akun yang tersedia (diinstal) sedangkan Folder (kotak masuk, terkirim, kalender) tersedia untuk pengguna berdasarkan izin Exchange Server dan karenanya terlihat di Outlook. Sebenarnya diselesaikan dengan mengulang koleksi folder NameSpace.Folders dan menetapkan folder yang diinginkan ke variabel dan menggunakan Application.CreateItemFromTemplate(strPath, olFolder) - person Sławomir Mytych; 04.09.2018