Hi Folks
I found the way to amend text file. But when I put everything in the subs it stopped working.
please advise:
Public Sub AppendTextFiles(safeset As String)
Open "C:\AppSupport\testfilew.txt" For Append As #1
Print #1, safeset
Close #1
End Sub
Public Sub CheckSafeSet(safeset As String) 'debbuger shows an issue here (its highlights it in yellow)
MsgBox ("1")
If itm.Body Like safeset Then
Call AppendTextFiles(safeset)
Else:
MsgBox ("FAIL")
End If
End Sub
Public Sub process_email(itm As Outlook.MailItem)
'Strings - Savegroups
Dim d1000i As String
Dim d1200i As String
Dim l0001i As String
l0001i = "*Savegroup: VNX_UK_NDMP_00:01*"
Dim l2000i As String
Dim lonparch01 As String
'lonparch01 = "*pnwifsvbbup03.r3-core.r3.aig.net:/root_vdm_1/vol_lonparch01_snap 42927:nsrndmp_save: Successfully done*"
lonparch01 = "*NDMP*"
Dim new_msg As MailItem
If itm.Body Like l0001i Then
Call CheckSafeSet(lonparch01)
Else:
End If
End Sub