Skip to content

Instantly share code, notes, and snippets.

@samirsaci

samirsaci/email_1.vb

Last active October 23, 2022 12:05
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save samirsaci/ba72b760f0ea2ebe63357bb91475565c to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save samirsaci/ba72b760f0ea2ebe63357bb91475565c to your computer and use it in GitHub Desktop.
Download ZIP
Email Back-Up - Init
Raw
email_1.vb
Sub SaveMSG_as_HTML()
Application.ScreenUpdating = False
'Initiliaze Parameters
Dim olMsg As MailItem
Dim strPath As String
Dim strMsg As String
Dim strHTML As String
Dim Sender, Received_Time As String
Dim ID As Integer
ID = 1
'Path In
strIn = "C:\InFolder"
'Path Out
strOut = "C:\OutFolder"
'Target File Extension (must include wildcard "*")
myExtension = "*.msg*"
'Target Path with Ending Extention
myFile = Dir(strIn & myExtension)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment