Envoi de mail

**romrai** · 08/03/2006, 14h17

Salut,

je recontre enormement de problèmes pour l'envoi des mails. En fait je travail sur une application qui doit envoyer des mails à un certain nombre de personnes. la messagerie de la boîte est sous lotus; mais je ne voudrais pas restreindre mon programme à lotus. Pour cette raison, j ai opté pour un système ouvert (qui peut s'appliquer à tout types de messagerie). Mais seulement! mais Seulement ça ne marche pas!

voici le programme:

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
Sub EnvoiMail()
'testé avec XP
Dim fichier As String
Dim iMsg As Object, iConf As Object, iBP As Object
 
'On Error Resume Next
 
'envoi mail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
With iMsg
 
Set .Configuration = iConf
.To = "dongmor@caramail.com" 'destinateire
.subject = "Message du forum Xld" 'sujet
.HTMLBody = "Ci joint les dernieres données mises à jour ..." 'corps du message
Set iBP = iMsg.AddAttachment("E:\ROMARIQUE\ZinstalNF\2006 02 23.xls")
.Send 'envoi
 
End With
End Sub

il bloque sur l'instruction .send. l'erreur qu'il m'affiche est la suivante: "The 'SendUsing' configuration value is invalid". ça fait un moment que je galère pour l'envoi de mails, si quelqu'un a une idée

merci

**Demco** · 08/03/2006, 14h30

La FAQ propose une solution d'envoie de mail avec Lotus Note, tu peux toujours l'essayer.

**romrai** · 08/03/2006, 14h44

Merci pour ta réponse.

j'ai essayer le programme qui se trouve sur le FAQ, et ça marche; mais comme je l'ai espliqué, jne voudrais pas que mon programme soit restreint à lotus.

**pc75** · 08/03/2006, 14h52

Bonjour,

Il me semble que la configuration est absente.

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
 
Set oMail = Wscript.CreateObject("CDO.Message")
Set oMailConfig = CreateObject ("CDO.Configuration")
 
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVEUREXCHANGE
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oMailConfig.Fields.Update
Set oMail.Configuration = oMailConfig
 
oMail.Sender = "Mezigue@Site.fr"
oMail.From = "Zorro@Site.fr"
 
'oMail.Cc = Recip
'oMail.Bcc = Recip
 
oMail.To = "Asterix@Menhir.fr"
 
 
oMail.Fields("urn:schemas:httpmail:importance").value = 1
oMail.Fields.Update()
 
oMail.Subject = "Sujet du message"
'oMail.HTMLBody = "<b>Contenu du message ...</b>" & vbcrlf ' HTML
oMail.TextBody = "suite du contenu" ' TEXTE
 
'	oMail.CreateMHTMLBody "file://c:\autoexec.bat"
 
oMail.Send
 
Set oMailConfiguration = Nothing
Set oMailConfig = Nothing
Set oMail = Nothing

PS : Il existe aussi une solution WinSock

**romrai** · 08/03/2006, 15h23

Justement, je ne comprend pas très bien la configuration, si quelqu'un peut m'expliquer

d'autre part j'ai testé ton programme, et il m'affiche toujours un message d'erreur.

**pc75** · 08/03/2006, 15h42

Re,

Sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVEUREXCHANGE

Tu as bien mis le nom de ton serveur de messagerie ?

**romrai** · 08/03/2006, 15h47

ok,
excuse moi ma question est peut être bête, mais comment je l'ai le serveur de messagerie?

la partie configuration est très flou pour moi, jne comprend pas trop. de plus j'ai pas l'aide concernant cette partie.

si tu peux m'aider un peu plus

merci

**pc75** · 08/03/2006, 16h06

Re,

Ton admin réseau doit pouvoir te donner le nom du serveur de messagerie.

Pour la partie configuration, c'est vrai que c'est un peu déroutant, mais tu l'utilises comme ça.
Microsoft a fait assez fort dans le nom des propriétés.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

aurait pu ressembler à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
oMailConfig.Fields.Port = 25

**romrai** · 08/03/2006, 16h13

Merci,

je vais demander le nom serveur à l'admin; et je vais tester à nouveau.

jte remercie encore pour ton aide.

je te tiens o courant

**romrai** · 09/03/2006, 10h44

salut,

j'ai pu obtenir l'adresse du serveur de messagerie. Rien à faire, ça ne marche toujours pas, je ne comprend pas pourquoi?

merci

**pc75** · 09/03/2006, 11h05

Re,

Ca ne fonctionne pas => Quel message d'erreur reçois tu ?

**romrai** · 09/03/2006, 11h16

le message est le suivant:

"The transport failed to connect to the server"

**pc75** · 09/03/2006, 11h28

Re,

Peux-tu poster ton code modifié ?

**romrai** · 09/03/2006, 11h42

voilà mon code modifié

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
Public Sub mail()
 
Set oMail = CreateObject("CDO.Message")
 
oMail.subject = "Test"
oMail.From = "MON ADRESSE"
oMail.To = "DESTINATAIRE"
oMail.TextBody = "c'est juste un test"
 
oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MSG309A/SRV/...../FR"
oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oMail.Configuration.Fields.Update
 
oMail.Send
 
Set oMail = Nothing
End Sub

je ne peux pas donner l'adresse complet du serveur messagerie parce qu'il y a des données confidentiels

**pc75** · 09/03/2006, 12h09

Re,

Pourtant, ce code fonctionne bien chez moi.

Assures-toi auprès de ton admin réseau que le port 25 n'est pas filtré ou que l'envoi de mails n'est pas verrouillé quand tu utilises ta méthode.

**romrai** · 09/03/2006, 12h43

j'avoue que jne comprend pas ce qui se passe.

dis le port 25 correspond à quoi exactement? il n'y aurait pas de lien avec le TCPIP?

**romrai** · 09/03/2006, 14h03

par contre tu pourras peut être m'aider sur ce coup. J'ai un autre programme d'envoi de mail que j'avais écrit qui marche. Mais ce qui me dérange c qu'a chaque fois que j'envoi un mail, il me dememande mon passe, et c un peu embetant; surtout si une personne autre que moi utilise le programme. voici le programme:

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
47
48
49
50
51
52
53
54
55
56
Public Sub Envoi_MAil()
 
    Dim Maildb          As Object
    Dim UserName        As String
    Dim MailDbName      As String
    Dim attachment      As String
    Dim subject         As String
    Dim recipient       As String
    Dim BodyText        As String
    Dim MailDoc         As Object
    Dim AttachME        As Object
    Dim Session         As Object
    Dim EmbedObj        As Object
 
    'Crée une session notes
    Set Session = CreateObject("Notes.NotesSession")
 
    attachment = "E:\ROMARIQUE\ZinstalNF\2006 02 23.xls"
    subject = "essai"
    BodyText = "c'est juste un essai"
    recipient = "dongmor**@hotmail.com"
    'password = "**********"
 
    'Récupère le nom d'utilisateur et crée le nom de la base des mails
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
 
    'Ouvre la base des mails
    Set Maildb = Session.GETDATABASE("", MailDbName)
    If Not Maildb.IsOpen Then Maildb.OPENMAIL
 
    'Paramètre le mail à envoyer
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = recipient
    MailDoc.subject = subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
 
    'Prend en compte les pièces jointes
    If attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If
 
    'Envoie le mail
    MailDoc.PostedDate = Now()
    MailDoc.Send 0, recipient
 
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

merci encore pour ton aide

modération : cafeine, password et adresse internet masqués

**pc75** · 09/03/2006, 14h11

Re,

Le port 25 est celui qui correspond au protocole SMTP (service mail).

PS : pour ton code, je ne sais pas, désolé.

Envoi de mail

Access

Discussions similaires

Partager

Partager