Discussion :

[rd1971]

Bonjour,
J'essaie d'envoyer un mail par le zimbra auquel je suis connecté dans mon job.
voici le code que j'utilise :

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
EmailAnswer = MsgBox("Create Email Now ?", vbYesNo)
If EmailAnswer = 6 Then
 
'Start Email Creation Process. 6 = Yes, 7 = No
 
Dim ZimbraPath As String
ZimbraPath = "https://mail.univ-lorraine.fr"
 
AttachementName = "envoi.pdf" 'Attachment Name & Location
 
SubjectName = "Test" 
 
EmailTo = "xxx@univ-lorraine.fr"
 
If AttachementName <> "" Then
 
On Error GoTo 1
 
Shell (ZimbraPath & " -sendfile " & AttachementName)
 
End If
 
err_handler:
 
1
 
'MsgBox "PDF File does not exist !" & vbCrLf & "Create PDF, then Try Again." & vbCrLf & vbCrLf & "File Name : " & AttachementName
 
'Resume Next 'Ignors the error
 
If Err.Description <> "" Then MsgBox Err.Description
' End 'End the email creation
 
 
 
End If 'End creating email
End Sub

Access ne reconnait pas mon zimbrapath
Des idées, des info ?
Merci d'avance

[loufab]

Bonjour,
Zimbra c'est la messagerie de free il me semble.

Utilise CDO.sys (à voir sur le forum, faq, tuto il y a tout ce qu'il faut) pour envoyer ton mail en passant par la messagerie free (smtp / port / compte / pw - à voir chez free pour ces paramètres) ton mail sera dans la boite d'envoi.

Cordialement,

[rd1971]

Non Zimra est un protocole pour les mail avec serveur imap. (https://www.zimbra.com)
Je vais voir avec les CDO
Merci