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