save email using subject and wildcards

[Mavyak]

Change this:
[VBA]If objItem.Subject = "H1221 *" Then ‘ this is meant to work if the subject is “H1221 delivery dates”[/VBA]

To either this:
[VBA]If InStr(objItem.Subject, "H1221") > 0 Then ‘ this is meant to work if the subject is “H1221 delivery dates”[/VBA]

or this:

[VBA]If Left(objItem.Subject, 5) = "H1221" Then ‘ this is meant to work if the subject is “H1221 delivery dates”[/VBA]