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