vba - How do I select which account I want to create an outlook item for? -
i'm writing script creates , updates outlook note. works fine except 1 issue.
it creates , updates note on personal mailbox , need create , maintain note on department mailbox have access to(i have 2 accounts set in outlook).
it behaving way despite script being triggered rule on department mailbox , being given mail items department mailbox. how tell vbs/outlook notes folder/account want use? cannot find anywhere outlines how select account note created under.
i using outlook 2016.
set olkfolder = session.getdefaultfolder(olfoldernotes) set olknote = olkfolder.items.find("[subject] = 'sequential number'") if typename(olknote) = "nothing" set olknote = application.createitem(olnoteitem) olknote.body = "sequential number" & vbcrlf & "nextvalue=" & starting_value + 1 getnextnumber = starting_value else arrlines = split(olknote.body, vbcrlf) each varline in arrlines if left(varline, 10) = "nextvalue=" getnextnumber = cint(mid(varline, 11)) olknote.body = "sequential number" & vbcrlf & "nextvalue=" & getnextnumber + 1 end if next end if
instead of using application.createitem
, either open folder mailbox using application.session.createrecipient
/ application.session.getshareddefaultfolder
, call mapifolder.items.add
or (if mailbox available in outlook) drill down folder starting application.session.folders
, (again) call mapifolder.items.add
.
replace
set olkfolder = session.getdefaultfolder(olfoldernotes) ... set olknote = application.createitem(olnoteitem)
with
set recip = session.createrecipient("someotheruser@yourdomain.demo") set olkfolder = session.getshareddefaultfolder(recip, olfoldernotes) ... set olknote = olkfolder.items.add
Comments
Post a Comment