我在Outlook中有2個帳戶，一個是我的個人，另一個是共享的。我想閱讀或閱讀我的共享郵箱中的未讀郵件。我有一個正在使用我的電子郵件收件箱的代碼，但沒有與我的共享電子郵件組一起工作。 它顯示錯誤enter image description here 我的代碼如下： Sub OutlookTesting()
Dim folders As Outlook.folders
Dim Folder A
我從用戶那裏獲得交換在線地址，但我想轉換或以某種方式獲取它們的SMTP地址。 我不知道如何從Email1Address獲取SMTP地址。 Set objOL = CreateObject("Outlook.Application")
Set objNS = objOL.GetNamespace("MAPI")
Set objContactsFolder = objNS.GetDefaultFo
我正在開發一個腳本來格式化Outlook模板並通過單擊按鈕發送它。 主要目標是在間距之後/之前使用單行距離和0pt，並將模板上的所有內容控件（例如ComboBoxes）轉換爲文本/字符串。 Sub FormatAndSend()
Dim CurrentMessage As Outlook.MailItem
If TypeName(Application.ActiveWindo
我想使用宏回覆與Outlook模板內聯的消息。 我目前使用下面的代碼來執行模板的回覆，但是這會打開彈出式回覆窗口。 Sub Reply_Scripting()
Dim origEmail As MailItem
Dim replyEmail As MailItem
Set origEmail = Application.ActiveWindow.Selection.I
請參閱下面的代碼。我無法獲取今天日期和日曆約會的代碼。 Option Explicit
Private Sub Workbook_Open()
On Error GoTo ErrHand:
Application.ScreenUpdating = False
'This is an enumeration value in context of getDefaultS
，所以我工作的一個項目，以自動發送電子郵件帶有附件更換主題。主題必須有一個特定的名字，但直至現在我無法得到的最後一部分工作。 Private WithEvents Mail As Outlook.MailItem
Private WithEvents Inspectors As Outlook.Inspectors
Private Sub Application_Startup()