Code pour l'Envoi mail avec asp via outlook

Version imprimable

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:

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.

11/03/2015, 11h33
Bovino

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).
11/03/2015, 12h31
youça

Code pour l'Envoi mail avec asp via outlook

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.
17/03/2015, 12h09
pc75

Bonjour,

Disposes tu d'un serveur SMTP ?
20/03/2015, 16h54
youça

Code pour l'Envoi mail avec asp via outlook

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.

Re,

Un exemple :

Code:

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

23/03/2015, 10h18
youça

Code pour l'Envoi mail avec asp via outlook

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:

Citation:

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.
23/03/2015, 11h41
pc75

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.
23/03/2015, 12h03
youça

Code pour l'Envoi mail avec asp via outlook

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

Merci.