save email from excel


New Member
Outlook version
Outlook 2013 64 bit
Email Account
Dear Sir
wishing you a good day.

we have a Excel VBA code that saves the selected email from outlook and hyperlinks a cell to it. but the problem is when the selected email is from a search result on "All Mailboxes". I would be thankful if you check what the problem is and let me know.

Sub LinkToQuotation()
Dim oMail As Outlook.MailItem
Dim objItem As Object
Dim sPath As String
Dim dtDate As Date
Dim sName As String
Dim enviro As String
enviro = CStr(Environ("USERPROFILE"))
For Each objItem In ActiveExplorer.Selection
Set oMail = objItem
sName = oMail.Subject & ".msg"
ReplaceCharsForFileName sName, " "
sPath = "D:\Dropbox\calc quotations\"
Debug.Print sPath & sName
oMail.SaveAs sPath & sName, olMSG
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sPath & sName, TextToDisplay:="Link to Email"
End Sub

Best Regards
Thread starter Similar threads Forum Replies Date
nathandavies Email Details to Excel & Save as .MSG on one macro - combination of 2 macros Outlook VBA and Custom Forms 3
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
W Save and rename outlook email attachments to include domain name & date received Outlook VBA and Custom Forms 4
V VB script code to save a specific email attachment from a given email Outlook VBA and Custom Forms 14
C Auto save outlook attachments when email is received Outlook VBA and Custom Forms 1
Diane Poremsky Save Selected Email Message as .msg File New Articles 11
Diane Poremsky Save Outlook Email as a PDF New Articles 0
B VBA Help Email that will save as draft and send as attachment Outlook VBA and Custom Forms 3
C Save Subject of Received Email as a String Outlook VBA and Custom Forms 1
C Rule To Save attachments on receipt of email Outlook VBA and Custom Forms 2
M Question: Is there a rule that will save email in Windows Explorer Outlook VBA and Custom Forms 3
I Save selected email message as .msg file (with user to choose folder location) Outlook VBA and Custom Forms 14
M VBA code to save email attachments (PDF) as email subject line Outlook VBA and Custom Forms 1
D Save downloaded images with the email Using Outlook 2
D Save sent email in second account not default account? Using Outlook 1
K Save a received email in a mailbox subfolder which is the same as the @email Using Outlook 1
E can't save draft email in Outlook 2010 Using Outlook 2
M Rules - daily status (email) doesn't change much daily, save 1 per week how? Using Outlook 1
T How do I set up a new contact folder to save email addresses for distribution list? Using Outlook 2
S Outlook 2010: Save POP email to Exchange mailbox?? Using Outlook 3
P Can't save embedded photos in email. Using Outlook 3
7 I would like to save my email messages from microsoft outlook to a cdrw. Using Outlook 3
P Outlook deletes my email account passwords even when I check 'save password' box Using Outlook 2
B Trusted Publishers do not save when I designate them on an incoming email Using Outlook 1
A Can you save an email as a PDF? Using Outlook 2
A send a email, with out having to save contact details, in office 03 and 07 you could uncheck and disable email name check Using Outlook 1
P transfering auto-save names from microsoft outlook EMAIL when LOADING to a new computer Using Outlook 2
N outlook won't save my email log in passwords Using Outlook 5
C Best way to effectively back up Outlook Calendar (and save Categories) and Email as well???? Using Outlook 6
C Email attachments will not open in outlook nor will they open if I save and try to open. They are sh Using Outlook 1
K Save email as PDF Using Outlook 5
S How to decript an encrypted email so it is save unencrypted? Using Outlook 9
G The properties of 'email' have changed. Do you want to save changes to this message? I get this al Using Outlook 1
M how to save data changes in an attached email with office 2010 Using Outlook 5
T Where does Outlook save email, contacts, calendar, etc? Using Outlook 2
S Email won't send if save folder selected in advance Using Outlook 1
E Save Email to Public Folder Automatically Using Outlook 1
D Setting to automatically save email address when you reply to email in Office 2007 Using Outlook 5
D Save Current email in Directory. Outlook VBA and Custom Forms 1
M Save incoming Email as .html file with name of subject line Outlook VBA and Custom Forms 3
J Code to Save Email as an .MSG to Directory when Emails Arrive Outlook VBA and Custom Forms 4
J Save attachment if email is from joe Outlook VBA and Custom Forms 4
H Program email save as text file Outlook VBA and Custom Forms 5
T Is it possible to save email body without header? Outlook VBA and Custom Forms 6
P Save Email as .msg File with Code Outlook VBA and Custom Forms 5
D Prevent popup of "Do you want to save changes?" when closing after opening an appointment to view Outlook VBA and Custom Forms 2
A Unable to save recurring Meeting to Documents folder due to error Using Outlook 2
M Outlook 2013 Script Assistance - Save Opened Link with Subject Added Outlook VBA and Custom Forms 1
R Use an ItemAdd to Save Attachments on Arrival Outlook VBA and Custom Forms 0
W Outlook Calendar does not save view any longer! Using Outlook 3
Similar threads