outlook-vba

    0熱度

    1回答

    我想在Excel中使用VBA在Outlook中創建一個新的「搜索文件夾」。 最後一行失敗,這是保存功能。 「無法找到對象」。任何線索? Sub createfolder() Dim oApp As Outlook.Application Dim oSearch As Outlook.Search Dim oInbox As Outlook.mapifolder Dim sFolderPa

    1熱度

    3回答

    我是VBA代碼的初學者,也是使用Outlook的最初階段。我有大量的數據添加到Excel中。搜索Google後,我發現我們可以通過Outlook VBA來實現。內容來自於以下格式: 標題:本科生 性別:男 國家:阿爾巴尼亞 關鍵字: 1.Environment 人口 名字:約翰 電話號碼:0532432444 用戶名:[email protected] 文件上傳:http://all-free-d

    0熱度

    1回答

    我需要對在Outlook 2016中轉發或回覆的電子郵件執行修改。爲了實現這一點,我有以下代碼;這個代碼在InlineResponse窗口執行修改(更換空正則表達式的值): Dim myOlApp As New Outlook.Application Public WithEvents myOlExplorer As Outlook.Explorer Public Sub Initializ

    -4熱度

    1回答

    我要插入一個HTML表格中的電子郵件模板是這樣的: ___________________________________________ | | | | | | | | |___________| |_______________| | | | | | | | | |___________|____________

    0熱度

    1回答

    如何在我的Outlook日曆中找到一系列約會以及如何更改它? 我使用下面的代碼來查找和更改單個約會/會議。 Private Sub ChangeAppointment(SearchDate As String, SearchApptSubject As String) 'SearchDate = "7/12/2017" 'SearchApptSubject = "Leav

    2熱度

    1回答

    我有一個宏,可將我的收件箱中的所有電子郵件附件保存到指定的目錄。但是,我想將附件以電子郵件主題保存爲文件名。 這是我第一次看到VBA,所以任何指針都非常感謝。 Private Sub Outlook_VBA_Save_Attachment() ''Variable declarions Dim ns As NameSpace Dim inb As Folder

    1熱度

    2回答

    我在寫一個宏,用戶被要求輸入一個數字。但我無法驗證輸入是否是數字。我正在嘗試類型:= 1,但它給出了一個錯誤。這是我的一段代碼。 Limit = Replace(Trim(Left(Split(b, "LIMIT:")(1), Len(Split(b, "LIMIT:")(1)) - Len(Split(b, "EXCESS:")(1)) - 7)), ".", "")

    0熱度

    1回答

    所以即時通訊工作的自動轉發郵件自定義郵件和附件從原始郵件的腳本。 代碼工作,但附件的一個是原始消息是這樣的: Example 任何人知道如何去除呢? Option Explicit Public Sub FW(olItem As Outlook.MailItem) With olItem .Attachments.Add olItem, olEmbeddeditem

    1熱度

    1回答

    我有許多用於執行各種任務的Outlook的VBA宏。我正在嘗試開發插件,因爲我的組織希望從宏(甚至是簽名的)中移出,這是由於將宏部署到成千上萬個用戶的後勤任務。有沒有幫助noob將現有的VBA宏加入插件的指南?到目前爲止,我嘗試過基本的谷歌搜索。 是否有某種超級祕密插件開放市場,我可以根據需要找到那些可以做的事情,並允許我完整查看/修改源代碼? 謝謝! 注:最有價值的文章,到目前爲止似乎是: ht

    0熱度

    2回答

    我正在使用Outlook腳本來轉發具有特定模板的電子郵件。我無法在<img scr=開始時添加徽標。 Public Sub FW(olItem As Outlook.MailItem) Dim olForward As Outlook.MailItem Set olForward = olItem.Forward Set olLogo = Outlook.Application If