outlook-vba

问题 Would it be possible to attach PDF from MemoryStream or other functions to Outlook E-Mail Items MailItem.Attachment.add() , rather than from the file on the hard disk by passing the physical path of file in this method. I would like to create the Outlook mailitem for the users with the PDF attached programmatically, and let the users to review and send out the email by themselves. Thank you in advance. 回答1: Not using the Outlook Object Model - Attachments.Add will only let you pass a file

问题 How do I extract an email address from a string? xxx my@email.com yyy xxx and yyy can be any length, any character. The email address is delimited by spaces. 回答1: One possibility: sString = "my1@email.com xxx my2@email.com yyy my3@email.com" asString = Split(sString, " ") For i = 0 To UBound(asString) If asString(i) Like "*@*.*" Then sEmail = sEmail & "," & asString(i) End If Next MsgBox Mid(sEmail, 2) 来源： https://stackoverflow.com/questions/14977200/extract-email-address-from-string-with

问题 How do i create a macro to create an appointment to another calendar. The current macro i am using creates to my default calendar. Thanks in advance. Sub test() Dim myItem As Object Set myItem = Application.CreateItem(olAppointmentItem) myItem.MeetingStatus = olMeeting myItem.Subject = "Strategy Meeting" myItem.Location = "Conf Rm All Stars" myItem.Start = #4/11/2016 1:30:00 PM# myItem.Duration = 10 myItem.Display End Sub 回答1: Call Application.Session.CreateRecipient , then pass the returned

问题 I've tried many things and read up quite a bit but I cannot figure this out. I cannot create an add-in so I have to use VBA. I want to add a a button to the right-click context menu when I right-click on a user. Is this possible? 回答1: Yes, it is possible to customize the context menu in Outlook. See Customizing Context Menus in Office 2010 for more information. But VBA doesn't allow to customize the Fluent UI in Outlook, you need to develop an add-in instead. 来源： https://stackoverflow.com

问题 Outlook has one ribbon displayed when the email index is shown, and a different ribbon when a MailItem is open. I managed to add buttons to the Miscellaneous group in the ribbon for the index, via File -> Options. Can I customize the ribbon for a MailItem via File -> Options? Can I do this via VBA? Can this VBA be executed automatically at launch time? 回答1: I managed to do it via File -> Options. It was very simple, I had to access File -> Options from within the MailItem instead of the main

问题 I'm trying to search selected emails and delete the attachments. I did a bit of research and ended up going with the Word.Document route. I had a previous tidbit of code that deleted all the attachments but was leaving behind a dotted line box that said the image wasn't available. I'm trying to mesh the two as this one below does not delete attachments but only the inline shapes. Code that deletes inline images: Sub DeleteAllAttachmentsFromSelectedMessages() Dim selectedItems As Selection Dim

问题 I run below script to save Outlook attachment on arrival of email. But I frequently get Run-time error '-2147024864 (80070020), which will always stop the inflow of Outlook email. Please advise how to get rid. Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String saveFolder = "C:\Email\" For Each objAtt In itm.Attachments objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName Set objAtt = Nothing Next End Sub 回答1: try this code please it

问题 I have a huge number of Outlook .msg and Outlook .eml files saved to a shared network folder (ie outside of Outlook). I am trying to write some VBA in Excel that extracts the Subjects，Sender, CC, Receiver, SentTime, SentDate, message body text from each file and import these info to Excel cells orderly Subject Sender CC Receiver SentTime SentDate Re:.. Mike Jane Tom 12:00:00 23 Jan 2013 I've done a similar thing with word documents but I'm struggling to 'get at' the text in the .msg files. So

问题 This question already has answers here : Using Outlook VBA to forward Emails, but want exclude appointments (2 answers) Closed 5 years ago . I never played with VBA before. This script below is supposed to save all email details in an Outlook folder onto an Excel spreadsheet. I'm getting error 13 when I execute Set msg = itm . The value of itm at break time corresponds to a meeting invitation , so not your ordinary email . Could that be the problem? If so, how do I tell VBA to ignore anything

问题 I am trying to populate my email to field with the email address stored as a value in cells AF. AF8 = info@email.com AF9 = help@email.com AF10 = hello@email.com I am trying to use select range as each AF cell in every row contains a different email address, so when a user has a row selected is should get the appropriate cell value from AF for that row. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = Range("CA8").Column Then Dim Email_Subject, Email_Send_From, Email_Send