Bonjour à tous
J'ai trouvé ce code et j'essaie de l'appliquer dans mon application. Il m'indique un message d'erreur "Access ne peut pas trouver "SendNotesMail.
Merci pour votre aide.
Bien à vous tous
Habiler
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81 Private Sub Command260_Click() On Error GoTo Err_Command260_Click Dim stDocName As String stDocName = "SendNotesMail" DoCmd.RunMacro stDocName Exit_Command260_Click: Exit Sub Err_Command260_Click: MsgBox Err.Description Resume Exit_Command260_Click End Sub Public Function SendNotesMail() 'This public sub will send a mail and attachment if neccessary to the recipient including the body text. 'Requires that notes client is installed on the system. 'Set up the objects required for Automation into lotus notes Dim Subject As String Dim Attachment As String Dim Recipient As String Dim BodyText As String Dim SaveIt As Boolean Dim Maildb As Object 'The mail database Dim UserName As String 'The current users notes name Dim MailDbName As String 'THe current users notes mail database name Dim MailDoc As Object 'The mail document itself Dim AttachME As Object 'The attachment richtextfile object Dim Session As Object 'The notes session Dim EmbedObj As Object 'The embedded object (Attachment) Dim EmailSend As Object Dim EmailApp As Object 'Start a session to notes Set Session = CreateObject("Notes.NotesSession") 'Get the sessions username and then calculate the mail file name. 'You may or may not need this as for MailDBname with some systems you can pass an empty string UserName = Session.UserName MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 'Open the mail database in notes Set Maildb = Session.GETDATABASE("", MailDbName) If Maildb.IsOpen = True Then 'Already open for mail Else Maildb.OPENMAIL End If 'Set up the new mail document Set MailDoc = Maildb.CREATEDOCUMENT MailDoc.Form = "Memo" MailDoc.sendto = "admin@tlen.pl" MailDoc.Subject = "TDBank Validation File" MailDoc.Body = "Here is your TDBank Validation File for today." MailDoc.SAVEMESSAGEONSEND = SaveIt 'Set up the embedded object and attachment and attach it If Attachment <> "" Then Set AttachME = MailDoc.CREATERICHTEXTITEM.Add("H:\Document\1.pdf") Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "H:\Document\1.pdf") MailDoc.CREATERICHTEXTITEM ("H:\Document\1.pdf") End If 'Send the document MailDoc.Send 0, Recipient 'Clean Up Set Maildb = Nothing Set MailDoc = Nothing Set AttachME = Nothing Set Session = Nothing Set EmbedObj = Nothing
Partager