outlook-vba

Is there a way to compare all the titles of all Rss feeds and delete duplicates? [duplicate]

由 依然范特西╮ 提交于 2019-12-11 04:26:39
问题 This question already has answers here : How can I compare all the titles of all RSS feeds and delete duplicates? (2 answers) Closed 2 years ago . I'm wondering if there is a way to compare ALL TITLES in ALL RSS FEEDS and delete the duplicates. I read through a lot of RSS Feeds, and it's obvious that a lot of people cross-post to several forums, and then I end up seeing the same RSS Feed multiple times. I really just want to see each one one single time. Is there a way to list all feeds, and

Invalid Qualifier for String.Add in Outlook VBA

由 社会主义新天地 提交于 2019-12-11 04:24:25
问题 You all have been so helpful, and I was wondering whether I might trouble you a bit more. I have nearly completed my conversion from VB.net to VBA for Outlook, and in order to complete that, I need some information on what exactly a particular piece of code is returning. If you all can help out with that, the problem may go away; if not, I might need some help on this invalid qualifier error. From what I understand, I declare an 'array' in VBA with a command like this: Dim Computers(1, 1) As

MailItem.GetInspector.WordEditor in Office 2016 generates Application-defined or object defined error

由 此生再无相见时 提交于 2019-12-11 03:55:23
问题 I wrote an Excel macro to send email from a spreadsheet. It works on Office 2013, but not Office 2016. I looked at the VBA differences between Office 2013 and 2016, but couldn't see anything about changes to the inspector or word editor for message objects. Once it gets to .GetInspector.WordEditor it throws: Run-time error '287': Application-defined or object defined error Here is the relevant part of the macro: Sub SendEmail() Dim actSheet As Worksheet Set actSheet = ActiveSheet 'directories

Outlook VBA Set language of selection

由 故事扮演 提交于 2019-12-11 03:54:28
问题 I'm try to create a macro to set the language of the selection in an outlook email. I have little experience in VBA scripting. I copied the Macro I recorded in Word into my Macro-Table for Outlook (or project, or module, I'm not sure how it is named) Sub SelectionEnglish() Selection.LanguageID = wdEnglishUS Selection.NoProofing = False Application.CheckLanguage = True End Sub This doesn't work because the Selection object is not available. But I saw another question (which I can't find

Programmatically change properties in email body in Outlook with VBA

由 有些话、适合烂在心里 提交于 2019-12-11 03:19:09
问题 I have an email ready to be sent in Outlook 2013 I want to scan the body of the email for bold text (i.e., bold characters) and change its color to red (nice to have) Exclude from the macro the signature I put together the code below but still not working. Any ideas? Public Sub FormatSelectedText() Dim objItem As Object Dim objInsp As Outlook.Inspector ' Add reference to Word library ' in VBA Editor, Tools, References Dim objWord As Word.Application Dim objDoc As Word.Document Dim objSel As

Populating ComboBoxes VBA

由 泄露秘密 提交于 2019-12-11 03:07:54
问题 I have this VBA code: Sub sendByCustomForm() Dim olItem As Outlook.MailItem Dim sText As String If Application.ActiveExplorer.Selection.Count = 0 Then MsgBox "No Items selected!", vbCritical, "Error" Exit Sub End If For Each olItem In Application.ActiveExplorer.Selection sText = olItem.Body Set msg = Application.CreateItemFromTemplate("C:\myCustomForm.oft") MsgBox sText, vbInformation, "alert" With msg 'Set body format to HTML .BodyFormat = Outlook.OlBodyFormat.olFormatHTML .HTMLBody = "<HTML

VBA Outlook How to add hyperlink into email body

由 ⅰ亾dé卋堺 提交于 2019-12-11 02:48:13
问题 This macro adds hyperlink to email : Sub test_add_hyperlink() Dim NewMail As Outlook.MailItem Set NewMail = Application.ActiveInspector.CurrentItem NewMail.HTMLBody = "<HTML><BODY><A href=http://www.someaddress.com>URL_TEXT</A></BODY></HTML>" & NewMail.HTMLBody End Sub but how to add hyperlink in place where active cursor is ? I ask beacause I would like to add hyperlink not at the front of message, but where my currently writing message. The hyperlink I would like to add is the hyperlink to

Count Followup Emails using Excel VBA

由 我怕爱的太早我们不能终老 提交于 2019-12-11 02:44:18
问题 I am using Office 2013 and I am trying to get a count of the followup items in one of my email folders and this value will be written into a cell. So I am using the below code after adding the Outlook Object Library reference: Dim Folder As Outlook.MAPIFolder Dim objOL As Outlook.Application Set objOL = New Outlook.Application MailboxName = "mymailboxhere" Main_Folder_Name = "Inbox" Sub_Folder_Name = "Test" Set Folder = Outlook.Session.Folders(MailBoxName).Folders(Main_Folder_Name).Folders

Create Outlook Email Body with rows having a particular value using Excel VBA

由 眉间皱痕 提交于 2019-12-11 02:14:33
问题 I've used an example to create code to send emails from Excel (with Outlook), using a "Button" (red in my file). The code works. There is a pre-selected range of rows [B1:K20], that can be manually modified thanks to the Application.InputBox function. Sub MAIL() Dim rng As Range Dim OutApp As Object Dim OutMail As Object Dim StrBodyIn, StrBodyEnd As String StrBodyIn = "Bonjour," & "<br>" & _ " " & "<br>" & _ "Buongiorno," & "<br>" StrBodyEnd = " " & "<br>" & _ "Cordialement" & "<br>" & _ " "

Copy to Clipboard only the most recent reply in a conversation

由 ぐ巨炮叔叔 提交于 2019-12-11 02:10:36
问题 I have the following Outlook VBA code that copies the body of the selected e-mail message to the Windows Clipboard: Sub CopyMailToClipboard() On Error GoTo HandleErr 'Copies the selected message to the Clipboard Dim M As MailItem Set M = ActiveExplorer().Selection.Item(1) modClipboard.gfClipBoard_SetData Replace(M.Body, vbCrLf & vbCrLf, vbCrLf) ExitHere: Set M = Nothing Exit Sub HandleErr: MsgBox "Error " & Err.Number & ": " & Err.Description, , _ "CopyMailToClipboard" Resume ExitHere End Sub
订阅 outlook-vba