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 :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.