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

**youça** · 23/03/2015, 10h18

Bonjour,

d'abord merci pour votre intérêt et votre temps,

j'ai copié votre code tel quel en changeant juste le destinataire et le Sender, mais ça ne marche pas;
erreur:

CDO.Message.1 error '80040213'
Le transport a échoué dans sa connexion au serveur.
/myDCFSA/sendingMail.asp, line 53

Juste une chose svp, si vous regardez le premier post j'ai déjà un code avec MS-Excel pour l'envoi/création de mail sur Ms-Outlook,

1-Est ce que c'est possible de l'adapter pour le web?
2-sinon pour votre code comment trouver le SMTP?

merci encore.

**pc75** · 23/03/2015, 11h41

Re,

Pour répondre à la première question, Bovino a répondu.

Pour le nom du serveur SMTP, il faut se rapprocher de l'équipe technique qui gère les serveurs.

**youça** · 23/03/2015, 12h03

Re,
C'est noté, je reviens vers vous dès que j'aurais du nouveau,
à bientôt.

Merci.

Code pour l'Envoi mail avec asp via outlook

ASP

Discussions similaires

Partager

Partager