Envoi de mails sur outlook avec code asp classique

Bonjour,
Je suis à la recherche de code Vbscript pour ASP classique pour l'envoi de mail (ou éventuellement création de mail dans le brouillon) sur Outlook.
je peux faire cela avec Ms Excel en voici le code :

Sub EnvoiMail()

Dim Mon_Outlook As New Outlook.Application
Dim Mon_Message As Outlook.MailItem

     For i = 1 To 10
             
Set Mon_Message = Mon_Outlook.CreateItem(olMailItem)
With Mon_Message
    .Subject = "l'objet"
    .Recipients.Add  'ajoute du destinataire en A
    .BodyFormat = olFormatHTML 'format du message
    .Attachments.Add "le fichier a attacher"
    .HTMLBody = "le corps du message"
    .Importance = olImportanceHigh 'haute importance
    .OriginatorDeliveryReportRequested = True 'accusé de reception
    .ReadReceiptRequested = True 'accusé de lecture
    .CC =  'ajoute du destinataire en CC
    .Save 'ou save
  
   End With
Monmail = Empty

Next i
'Mon_Outlook.Quit
Set Mon_Message = Nothing
Set Mon_Outlook = Nothing
End Sub

Est ce possible de l'adapter pour asp classique?

Merci.