On Error Resume Next

Dim objFSO, objFile 
Dim txtExample 
txtExample = "C:\Users\Administrator\Documents\test.txt" 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.CreateTextFile(txtExample, True) 
objFile.WriteLine ("1,2,3,4,5")  
objFile.Close

Dim processDoc
processDoc = Metadata.Values("PROCESSFILENAMEWITHPATH")

Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = "Scanshare test"
objMessage.From = "YOUGMAIL"
objMessage.To = "MAILTO"

objMessage.TextBody = "Scanned image test for fileSMART"

objMessage.AddAttachment processDoc
objMessage.AddAttachment txtExample

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

'SMTP Port
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

' 1 if authentication is required
objMessage.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  

' true if SSL is required
objMessage.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true

' Username
objMessage.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YOUGMAIL"

' Password
objMessage.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YOURPASSWORDGMAIL"

objMessage.Configuration.Fields.Update
objMessage.Send

If Err.Number <> 0 Then
  call Application.Log(2, 5, "Error in DoStep1: " & Err.Description)
  Err.Clear
End If