私はOutlookに2つのメールボックスを持っています。vbaを使用してoutlook内の別のmaiboxにアクセスする
1つは私のもので、私のPCにログインすると自動的にログインし、もう1つはメールのバウンスのために自動的にログインします。
私は本当にメールのアカウントの受信トレイにアクセスする必要がありますが、私はそれを行うように見えません。
はPublic Sub GetMails()
Dim ns As NameSpace
Dim myRecipient As Outlook.Recipient
Dim aFolder As Outlook.Folders
Set ns = GetNamespace("MAPI")
Set myRecipient = ns.CreateRecipient("[email protected]")
myRecipient.Resolve
If myRecipient.Resolved Then
MsgBox ("Resolved")
Set aFolder = ns.GetSharedDefaultFolder(myRecipient, olFolderInbox)
Else
MsgBox ("Failed")
End If
End Sub
私は取得しています問題は、次のとおりです。
そして、私は私のデフォルトのメールボックスここ
するメールアカウントのメールボックスを作ることができる方法はありませんが、私がこれまで持っているコードです。:私は解決のMsgBoxので、私はそれが動作している知っているが、その後、私はエラーを取得を取得し
Set aFolder = ns.GetSharedDefaultFolder(myRecipient, olFolderInbox)
Run-Time Error
エラーそのものについてはあまり言及していません。
誰でも私をここで助けてくれますか? ありがとう
wow!コードをありがとう。新しいプロファイルを作成し、私が欲しいアカウントだけを指定することで問題を解決できたので、コードはそのアカウントで実行されます:)ありがとう – AntonioCS