Macro to add Date & Time etc to "drag to save" e-mails

Liam

Member
Outlook version
Outlook 2019 64-bit
Email Account
IMAP
Hi all,

I'm wondering if anyone could help with this... I recently found a macro online that will save my e-mails to a folder and add the date, time, sender, recipient and subject to each email as it saves it. This in itself is really helpful but would really save extra time if it was possible to do this when also saving emails when we drag and drop them... would anyone have any ideas if that's possible and how to go about it?

Thanks in advance!

The macro I have at the minute is as follows:

Option Explicit
Public Sub SaveMessageAsMsg()
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
If objItem.MessageClass = "IPM.Note" Then
Set oMail = objItem

sName = oMail.SenderName & " to " & oMail.ReceivedByName & " RE- " & " [ " & oMail.Subject & " ] "
ReplaceCharsForFileName sName, "-"

dtDate = oMail.ReceivedTime
sName = Format(dtDate, "dd.mm.yyyy", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(dtDate, "-hh'nn'ss'", _
vbUseSystemDayOfWeek, vbUseSystem) & "--" & sName & ".msg"

sPath = enviro & "\Documents\"
Debug.Print sPath & sName
oMail.SaveAs sPath & sName, olMSG

End If
Next

End Sub

Private Sub ReplaceCharsForFileName(sName As String, _
sChr As String _
)
sName = Replace(sName, "'", sChr)
sName = Replace(sName, "*", sChr)
sName = Replace(sName, "/", sChr)
sName = Replace(sName, "\", sChr)
sName = Replace(sName, ":", sChr)
sName = Replace(sName, "?", sChr)
sName = Replace(sName, Chr(34), sChr)
sName = Replace(sName, "<", sChr)
sName = Replace(sName, ">", sChr)
sName = Replace(sName, "|", sChr)
End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
No, its not possible to do it on a drag and drop - you would need to watch the windows folder for changes.

If you want to be able to choose a folder, you can use a "folder picker" to select there the message is saved.
How to use Windows filepaths in a macro (slipstick.com)
 

Liam

Member
Outlook version
Outlook 2019 64-bit
Email Account
IMAP
Ah ok, thanks for your help and fast response. It is a great macro btw it’s very helpful in my job!
 

Liam

Member
Outlook version
Outlook 2019 64-bit
Email Account
IMAP
Hi again,

Does anyone know is it possible to change the "SenderName" to display as initials in order of first name last name and the "ReceivedByName" seems to always display my name when saving even if I'm CC'd in e-mails that actually aren't directly to me would anyone have any ideas on this also so it displays who the e-mail was sent to and not me as a CC?

Many thanks, this macro has been a real time saver!
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
change the "SenderName" to display as initials in order of first name last name
you can change this using vba and Redemption - grabbing the initials might be more difficult - I have a sample macro that pulls the name from the contact.


the "ReceivedByName" seems to always display my name
I suppose you might be able to, but I don't have code. Because it is in your inbox, it was received by you.... so I'm not sure I understand why you'd need to do this.
 

Liam

Member
Outlook version
Outlook 2019 64-bit
Email Account
IMAP
Thanks Diane,

It's basically because I have to save e-mails of other colleagues in my organisation or team so the person the e-mail was actually sent to or sent by isn't always me if that makes sense, I was just CC'd in it.

So if John Doe sent an e-mail to Jane Doe with me CC'd and I Joe Bloggs save it it will save as "Doe, John to Bloggs, Joe" instead of Doe, John to Doe, Jane".

And thanks I'll have a look through that link, it would be brilliant if I could get it to save as "JD to JD"
(My colleagues give out to me for saving such long titled e-mails)
 

Liam

Member
Outlook version
Outlook 2019 64-bit
Email Account
IMAP
I should say as well that other people on my team review the e-mails we save so they find it confusing if it looks like they've all been sent to me.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
If I have time, I'll see if it can be done using a macro. It will be a few days though - I have 3 projects I'm working on.
 
Similar threads
Thread starter Title Forum Replies Date
M Macro to add date/time stamp to subject Outlook VBA and Custom Forms 4
A Email Macro to add Date and Classification Outlook VBA and Custom Forms 2
C Macro to add multiple recipients to message Outlook VBA and Custom Forms 3
S Example VBA Macro - To Conditionally Change the From Account and Add a BCC Address on Emails Outlook VBA and Custom Forms 11
Tanja Östrand Outlook 2016 - Create Macro button to add text in Subject Outlook VBA and Custom Forms 1
snhnic Macro that does not overwrite but add a number Outlook VBA and Custom Forms 1
W Macro to add a word in Subject Line Using Outlook 1
L Macro to Add Catgegory to List of Contacts Using Outlook 4
L Outlook 2007 Macro to Add Text to a Contact Field Using Outlook 10
W Add to Calendar links - auto accept with macro Using Outlook 1
B Auto BCC VBA macro: how to add exceptions? Using Outlook 28
M How to Create Macro in Visual Basic to add Contacts from Personal Folder Using Outlook 4
E Macro to add text to a Message Outlook VBA and Custom Forms 3
P How do I create a macro to add contacts from email messages? Outlook VBA and Custom Forms 1
D Call add-in method from macro? Outlook VBA and Custom Forms 1
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
S Visual indicator of a certain property or to show a macro toggle Outlook VBA and Custom Forms 2
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
S Macro to extract and modify links from emails Outlook VBA and Custom Forms 3
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
S Macro for Loop through outlook unread emails Outlook VBA and Custom Forms 2
Globalforester ItemAdd Macro - multiple emails Outlook VBA and Custom Forms 3
S Macro to extract email addresses of recipients in current drafted email and put into clipboard Outlook VBA and Custom Forms 2
witzker HowTo start a macro with an Button in OL contact form Outlook VBA and Custom Forms 12
witzker Macro to move @domain.xx of a Spammail to Blacklist in Outlook 2019 Outlook VBA and Custom Forms 7
S Macro for other actions - Outlook 2007 Outlook VBA and Custom Forms 23
C Macro to extract sender name & subject line of incoming emails to single txt file Outlook VBA and Custom Forms 3
L Macro/VBA to Reply All, with the original attachments Outlook VBA and Custom Forms 2
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
S Outlook Macro to move reply mail based on the key word in the subjectline Outlook VBA and Custom Forms 0
Eike Move mails via macro triggered by the click of a button? Outlook VBA and Custom Forms 0
S Macro or plug-in to see if specific person was included in this email Outlook VBA and Custom Forms 4
U Macro for reminders,tasks,calendar Outlook VBA and Custom Forms 4
V macro runs slower on startup than after Outlook VBA and Custom Forms 3
N Macro to move all recipients to CC while replying Outlook VBA and Custom Forms 0
A VBA macro for 15 second loop in send and received just for 1 specific mailbox Outlook VBA and Custom Forms 1
G VBA Macro Calendar Printing Assistant 4
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
R Macro Schedule every day in Outlook Using Outlook 0
L Moving emails with similar subject and find the timings between the emails using outlook VBA macro Outlook VBA and Custom Forms 1
Healy Consultants Macro to remove inside organization distribution list email address when reply to all recepients Outlook VBA and Custom Forms 0
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
N How can I increase/faster outlook VBA Macro Speed ? Using Outlook 2
4 Macro to set the category of Deleted Item? Outlook VBA and Custom Forms 2
D.Moore Folder view settings by VBA macro Outlook VBA and Custom Forms 57
A Outlook macro to create search folder with mail categories as criteria Outlook VBA and Custom Forms 3
Dave A Run macro on existing appointment when it changes Outlook VBA and Custom Forms 1
V Outlook Macro to show Flagged messages Outlook VBA and Custom Forms 2

Similar threads

Top