Envoyer un mail par zimbra par access en VBA
Bonjour,
J'essaie d'envoyer un mail par le zimbra auquel je suis connecté dans mon job.
voici le code que j'utilise :
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
| 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
