Save message from outlook to desktop in 2013 outlook

Status
Not open for further replies.
L

Liata

New Member
Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server 2013
Good day
I have a vba code macro that saves a message from outlook inbox to a folder on my desktop.
But I changed from outlook 2007 to outlook 2013 and the macro is no longer working.
When I research the problem , it seems to be a silent error, because even the code doesn't produce an error when I compile it.
It seems in 2o13 outlook I have to use ribbon extensibility to solve the problem and I don't know how to do that.
Below is my code, please assist.

Option Explicit
Public Sub SaveMessageAsMsg()
Dim oMail As Outlook.MailItem
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim objItem As Object
Dim sPath As String
Dim dtDate As Date
Dim sName As String

Set myNamespace = Application.GetNamespace("MAPI")

Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

For Each objItem In myFolder.Items

If objItem.UnRead Then

If objItem.Subject = "FW: signal" Then
oMail = objItem

sName = oMail.Subject
sName = sName & ".msg"
sPath = "C:\Users\User\Desktop\SAS CODE"
oMail.SaveAs sPath & sName, olMSG
End If
End If
Next

End Sub
 
Status
Not open for further replies.
< Forward message to address from subject | Creating meeting invite with disabled tentative button >
Similar threads
Thread starter Title Forum Replies Date
S Outlook (2016 32bit; Gmail IMAP) - Save sent message to Outllook Folder Outlook VBA and Custom Forms 0
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
Rob Can't save MailItem because the message changed in .pst file Outlook VBA and Custom Forms 0
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
E Save Selected Email Message as .msg File - digitally sign email doesn't works Outlook VBA and Custom Forms 1
N Save Selected Email Message as .msg File Outlook VBA and Custom Forms 12
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
Diane Poremsky Save Selected Email Message as .msg File Using Outlook 11
Diane Poremsky Choosing the Folder to Save a Sent Message In Using Outlook 0
L Save Mail Message to new folder created automatically Outlook VBA and Custom Forms 1
M Save selected email message as .msg file (with user to choose folder location) Outlook VBA and Custom Forms 14
D Message Save add ins do not work with EAS Using Outlook.com accounts in Outlook 5
R VB code to bulk save attachments deletes message Using Outlook 1
S how to disable security message in save attachments macro "A programis trying to access e-mail addre Outlook VBA and Custom Forms 5
Sandgroper48 Save vbaProject Outlook VBA and Custom Forms 2
J Outlook 2019 Pick the Folder Location to save send emails Outlook VBA and Custom Forms 0
boblewis Technical Issue with Custom Form - Save to Drafts Not Syncing Outlook VBA and Custom Forms 1
G Save emails as msg file from Outlook Web AddIn (Office JS) Outlook VBA and Custom Forms 0
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
C Outlook 365 Copy/Save Emails in Folder Outside Outlook to Show Date Sender Recipient Subject in Header Using Outlook 0
W Create a Quick Step or VBA to SAVE AS PDF in G:|Data|Client File Outlook VBA and Custom Forms 1
C Outlook (desktop app for Microsoft365) restarts every time I save my VBA? Using Outlook 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
N Save emails within a certain date range to network drive Outlook VBA and Custom Forms 0
T Outlook 365 Move newly created tasks automatically on save. Outlook VBA and Custom Forms 1
G Save attachment run a script rule Outlook VBA and Custom Forms 0
G Save and Rename Outlook Email Attachments Outlook VBA and Custom Forms 0
G VBA to save selected Outlook msg with new name in selected network Windows folder Outlook VBA and Custom Forms 1
D Outlook 2016 64bit, Cannot Save in 'HTML', format Using Outlook 1
N Save selected messages VBA does not save replies and/or messages that contain : in subject Outlook VBA and Custom Forms 1
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
S save attachment with date & time mentioned inside the file Outlook VBA and Custom Forms 0
S Add VBA save code Using Outlook 0
A Edit attachment Save and Reply Outlook VBA and Custom Forms 0
P Outlook pst file is too huge with POP3. How to save more space? Using Outlook 4
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
S automate save the .xlxs file to share Network Using Outlook 1
S save email from excel Outlook VBA and Custom Forms 1
Y Open and Save Hyperlink Files in multiple emails Outlook VBA and Custom Forms 9
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
O Save attachments using hotkey without changing attributes Outlook VBA and Custom Forms 1
N Open & Save VBAProject.Otm using VBA Code Outlook VBA and Custom Forms 1
R VBA | Chosing path to save file Outlook VBA and Custom Forms 1
W Save and rename outlook email attachments to include domain name & date received Outlook VBA and Custom Forms 4
V Change default default save location to Quick Access Using Outlook 1

Similar threads

Back
Top