Discussion :

[kevj67]

Bonjour

Je suis en train de développer un programme VBA pour ma société qui va nous permettre d'envoyer un mail pré remplis a l'aide de notre fichier client en récupèrent les information dans un fichier excel. Le problème est que je suis novice dans la programmation et que je récupère et adapte des codes existant.

J'arrive, en lançant mon programme à générer un mail et l'afficher dans un onglet lotus, mais le texte du mail créer apparaît après la signature alors que je souhaiterai qu'il apparaisse avant, mais impossible a faire.

CI dessous mon code qui me permet de générer ce mail :

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
Sub EmailFile()

' Declaration des variables

Dim UserName As String
Dim MailDbName As String
Dim mailDB As Object
Dim mailDoc As Object
Dim AttachME As Object
Dim Session As Object
Dim EmbedObj1 As Object

' Création du lien avec lotus

Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set mailDB = Session.GetDatabase("", MailDbName)
If mailDB.IsOpen = True Then
Else
mailDB.OPENMAIL
End If

' Création du mail + renseignement des informations

Set mailDoc = mailDB.CreateDocument
mailDoc.Form = "Memo"
mailDoc.SendTo = "mail@gmail.com"
mailDoc.Subject = Sujet"

' Construction du corps du message
'Set objNotesField = mailDoc.CreateRichTextItem("Body")
'With objNotesField
mailDoc.Body = "texte du mail"
'Affichage du mail dans Lotus Notes
   Set workspace = CreateObject("Notes.NotesUIWorkspace")
   Call workspace.EDITDOCUMENT(True, mailDoc)
'FIELDSETTEXT("Body", Body)

' Supresssion des varibles
Set mailDB = Nothing
Set mailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj1 = Nothing

errorhandler1:

Set mailDB = Nothing
Set mailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj1 = Nothing

With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With

End Sub

Si vous avez une solution a ce probleme, je suis preneur

[Jérôme Deniau]

Nous on utilise crossware donc pas de problème ;-)

Le but
1/ Créer le mémo (OK vu le code)
2/ Désactiver l'option de la signature (champ EnableSignature du profile CalendarProfile) (stocker sa valeur réelle car la valeur (peut être ""/"0"/"1"/"2"/"3"))
pour désactiver mettre NeableSignature à "" et enregistrer le profil.
3/ Affiche le le mémo (via editdocument)
4/ Insérer la signature, facile si c'est du texte riche -> Champ Signature_Rich du profil CalendarProfile
Si c'est du HTML au niveau de la signature (un fichier), bien utiliser la classe NotesIchTextItem pour le champ Body afin de pouvoir intégrer proprement le HTML
5/ Réactiver l'option de la signature dans le profile

Bon c'est dans les grandes lignes.

[Jérôme Deniau]

SignatureOption et EnableSignature, ça va compliquer le code ;-)

[kevj67]

Salut

Merci de ta réponse, nous utilisons directement la signature LOTUS avec un fichier JPEG en guise de signature. Le texte du mail est un simple texte sans mise en forme, j'ai seulement utilisé des variables afin de remplir des champs dans le mail. Est ce que ça simplifie le travail, car j'avoue être un peu permet avec tes explicitations :s