Dim m: Set m = CreateObject("CDO.Message") m.From = "from@example.com" m.To = "to@example.com" m.Subject = "Subject" m.TextBody = "Body" m.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 m.Configur…