K
kn
Dim NewMail
Set NewMail = CreateObject("CDO.Message")
NewMail.To = "(e-mail address removed)"
NewMail.From = "(e-mail address removed)"
Set NewMail = CreateObject("CDO.Message")
NewMail.To = "(e-mail address removed)"
NewMail.From = "(e-mail address removed)"