Code pour l'Envoi mail avec asp via outlook

**youça** · 11/03/2015, 11h00

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.

**Bovino** · 11/03/2015, 11h33

Tu ne peux pas...
ASP est un langage Web qui s'exécute sur un serveur. Donc ASP n'a pas accès au poste de l'utilisateur (et d'ailleurs, rien ne garantit que l'utilisateur possède Outlook).

**youça** · 11/03/2015, 12h31

Bonjour,
En fait j'ai réaliser un site web avec une base de données Access, les utilisateurs peuvent s'y connecter pour y effectuer de la saisie d'information,

a mon niveau j'ai un tableau de bord qui me montre la situation des saisies, et les utilisateur qui n'ont pas effectués des saisies,

ceci dit, j'aimerai -A mon niveau- leur envoyer un mail pour rappel.

Je dispose de Ms-Outlook et je suis sur un intranet.

Merci.

**pc75** · 17/03/2015, 12h09

Bonjour,

Disposes tu d'un serveur SMTP ?

**youça** · 20/03/2015, 16h54

Bonjour,
je travail dans une administration et je on dispose tous d'une adresse professionnelle,
d'ailleurs on travail en intranet,
donc je crois la boite dipose d'un serveur SMTP.

Merci.

**pc75** · 23/03/2015, 09h16

Re,

Un exemple :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
	Str_Destinataire = "DEST"
	Str_Sender = "SENDER"
	Str_Suppleant = "SUPPLEANT"
 
	Set oMail = Server.CreateObject("CDO.Message")
	Set oMailConfig = Server.CreateObject ("CDO.Configuration")
 
	oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "NomDuServeurSMTP"
	oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Port utilisé
	oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' On utilise un service SMTP
	oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' Timeout
	oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 ' 0 = aucune authentification ; 1 = authentification
	'oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USER" ' Utilisateur exchange si authentification = 1
	'oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PWD" ' Mot de passe de l'utilisateur exchange si authentification = 1
	oMailConfig.Fields.Update
	Set oMail.Configuration = oMailConfig
 
	oMail.Sender = Replace(Str_Sender, " ", ".")
	oMail.From = Str_Sender
	oMail.Fields.Update()
	oMail.Subject = "Objet du mail."
	oMail.To = Str_Destinataire
	if Str_Suppleant <> "VIDE" then
		oMail.CC = Str_Suppleant
	end if
 
	Body = ""
	Body = Body & "<html>"
	Body = Body & "<body>"
 
	Body = Body & "<font face=arial size=3 color=black>"
	Body = Body & "<b>"
	Body = Body & "Le texte du mail ..... "
	Body = Body & "</b>"
	Body = Body & "</font>"
 
	Body = Body & "</body>"
	Body = Body & "</html>"
 
	oMail.HTMLBody = Body
	oMail.Send
 
	Set oMailConfiguration = Nothing
	Set oMailConfig = Nothing
	Set oMail = Nothing

Code pour l'Envoi mail avec asp via outlook

ASP

Vue hybride

Discussions similaires

Partager

Partager