我有一個坐在Outlook中的VBA腳本,它試圖從電子郵件中獲取信息並將其寫入Excel文件。我對VBA很新,所以在經過很多調試和編輯之後,我設法找到了一些主要起作用的東西,但我可以使用一些指導。我會解釋我的腳本,然後談論我的問題。 我在最後包含了我的完整腳本。這裏有一個簡要概述,其中包括我認爲可能需要一些工作的部分。 Sub Output2Excel()
Dim xlApp As Ob
下面的代碼在我的收件箱中找到我的Subfolder,然後在活動窗口中打開電子郵件。 我想"Open"附加到此電子郵件的形式pdf這樣我就可以節省使用從pdf形式的文本字段中的附件。 我能找到的唯一代碼可以將附件保存到臨時文件夾,但不會從pdf表單獲取內容。 Sub OpenMailAttachment()
Dim ns As NameSpace
Dim Inbox As MA
我有一個Outlook 2007宏,它向收件人發送帶有標誌的電子郵件,但它不再工作。 我錯誤地改變了代碼,現在它不再工作了。 收件人在TO DO中看不到電子郵件,並且在電子郵件列表中不顯示紅色。 Sub fff()
Dim outApp As Object
Dim OutMail As Object
Dim datDue As Date
datDue =
我試圖移動Outlook項目,但代碼運行時沒有錯誤消息但沒有移動電子郵件。 這使我相信必要的IF condition永遠不會被滿足?但是我可能是錯的。 請在下面找到下面的代碼。 Sub Gatekeeper()
Dim aItem As Object
Dim mail As Object
Dim strTime As String
Dim Items As
我有宏搜索主題,如果發現複製電子郵件在另一個文件夾。我的問題是,它複製電子郵件4次,而不是隻有一次。如果我在原始文件夾「Left Ones」中有10封電子郵件,那麼在搜索和複製後,我將在文件夾「TO BE REMOVED」中有40封電子郵件。歡迎任何幫助,謝謝。 Sub Search_Inbox()
Dim myOlApp As New Outlook.Application
Dim obj
我想創建一個宏來執行任務主題和可選任務主體的「高級搜索」。例如搜索「@Cris」 我已經從Excel的示例中複製並修改了此代碼,但它沒有運行。運行時錯誤。感謝任何幫助 Sub AdvancedSearchComplete()
Dim rsts As Outlook.Results
Dim i As Integer
Dim strF As String
Dim
我有這樣的代碼,節省附件到一個特定的地方並將其重命名爲「name.xls」 Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\acheng\Desktop"
For