Envoi mail via lotus 8.5 par VBA

Version imprimable

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:

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

Bonjour le forum.

J'ai trouvé un nouveau qui m'a l'air de fonctionner, sauf qu'il m'indique qu'il ne trouve pas Nom = "C:\Users\Desktop\Classeur1.xlsx"

Qui pourrait m'aider SVP.

Dans l'un ou l'autre cas.

Merci

Habiler

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
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
Sub UseLotus()
 
    Dim Session As NotesSession
    Dim db As Object
    Dim doc As Object
    Dim rtitem As Object
    Dim object As Object
    Dim fs As Object
    Dim Principaux(2) As String
    Dim Copies(3) As String
    Dim dir As Object
    Dim inti As Integer
    Dim passwd As String
 
    On Error GoTo TraiteErreur
 
    'Demande le password Lotus(Dans le cas ou la session necessite un passwd)
     passwd = InputBox("Entrer votre password Lotus:", "Password")
 
    ' Création de la session Notes
    Set Session = CreateObject("Lotus.NotesSession") ' Session n'est pas initialisé
 
    'Ouverture d'une session NOTES
    Session.Initialize (passwd) 'si pas de passwd pas de parametre pour initialize
 
    Set dir = Session.GETDBDIRECTORY("") 'FranceServer1/DCI/BME/Omnia Group
    Set db = dir.OpenMailDatabase
 
    ' Création d'un document
    Set doc = db.CREATEDOCUMENT
 
    'affectation du type mail
    Call doc.APPENDITEMVALUE("Form", "Memo")
 
    Call doc.APPENDITEMVALUE("Sendto", "mmmm@msn.com")
    Call doc.APPENDITEMVALUE("subject", "Alerte !")
    doc.SAVEMESSAGEONSEND = SaveIt 'sauvegarde du mail à l envoi
 
    Set rtitem = doc.createRichTextItem("Body")
 
 
    Dim Nom As String
    Nom = "C:\Users\Desktop\Classeur1.xlsx"
    'Attachement du classeur au mail
    Set object = rtitem.embedObject(1454, "", Nom, "")
 
    Call doc.Send(True)
    Set object = Nothing
    Set rtitem = Nothing
    Set doc = Nothing
    Set db = Nothing
    Set Session = Nothing
    Exit Sub
 
TraiteErreur:
   MsgBox "Erreur Critique durant l envoi ." & Err.Description, vbCritical, "Error"
    Set object = Nothing
    Set rtitem = Nothing
    Set doc = Nothing
    Set db = Nothing
    Set Session = Nothing
    Set fs = Nothing
 
End Sub

10/02/2015, 11h08
User

Bonjour,

Tu es sûr du chemin que tu indiques pour ton classeur ?

a+
10/02/2015, 12h10
HABILER

Bonjour,

Oui.

J'ai déjà essayé avec guillemets etc mais sans succès.

Habiler
10/02/2015, 12h47
User

Rebonjour,

Et il se passe quoi si tu exécutes ce code à la place ?

Code:

Shell "excel.exe C:\Users\Desktop\Classeur1.xlsx", vbMaximizedFocus

Cdlt,
11/02/2015, 13h31
HABILER

En fait il y avait une faute d'orthographe, mais à présent il m'indique :

"A stored form can not contain computed subform"

Bien à vous

Habiler

Première lettre en MaJ.

Bonjour La communauté

Dans un formulaire j'ai les champs nom , prenom dans lequel je voudrais le cas échéant mettre la première lettre du nom et/ou du prénom en Maj. J'ai créé pour cela un bouton MAJMin. Comment synchroniser cette action.

Merci à vous tous

Habiler

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function MiseEnMajuscule(Chaine As String) As String
Dim nCar As Integer  'Compteur (position dans la chaine à traiter)
 
Chaine = Trim$(Chaine) 'Récupère la chaîne sans les espaces facultatifs
'Traitement spécifique sur le premier caractère
MiseEnMajuscule = UCase$(Left(Chaine, 1))
'Début de la boucle sur les autres caractères
For nCar = 2 To Len(Chaine)
'Teste le caractère précédent (" " ou "-")
If (Mid$(Chaine, nCar - 1, 1) = " ") Or (Mid$(Chaine, nCar - 1, 1) = "-") Then
'Si c'est vrai, mettre en majuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & UCase$(Mid(Chaine, nCar, 1))
Else
'Si c'est faux, mettre en minuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & LCase$(Mid(Chaine, nCar, 1))
End If
'Fin de la boucle sur les caractères
Next
End Function

04/03/2015, 20h39
HABILER

Bonjour,

En fait il y avait une faute d'orthographe, mais à présent il m'indique :

"A stored form can not contain computed subform"

Bien à vous

Habiler
07/04/2015, 14h21
arpakind

erreur

écrire
Call doc.Send(false)