Listing 2: Code to Create a Log Folder

Private Sub MailExtract()

	On Error Resume Next

	Dim CDOSession	'Session Object
	Dim oMsgTarget	'Target Msg Object
	Dim a		'Text File Object
	Dim fso 		'File System Object

		Set CDOSession = EventDetails.Session

		Set oMsgTarget = CDOSession.GetMessage(EventDetails.MessageID, Null)

	'Open Text File
	Set fso = CreateObject("Scripting.FileSystemObject")
		Set a = fso.OpenTextFile("C:\Mail\CustomersDL.log", 8, True)
	'Write Information to Text File
		a.WriteLine(oMsgTarget.Subject & " - " & oMsgTarget.Sender.Address)
		a.Close	
End Sub


1


1