Bonjour,
Je dois gerer l'envoi de fax d'access avec une messagerie Lotus.
Le code ci-dessous permet d'envoyer ce fax.
Par contre j'ai un soucis avec ma piece jointe.
Cette derniere provient d'un état Acces et est enregistrer au format snapshot.
Malheureusement le fax ne supporte pas ce format.
Si je sauvegarde au format RTF je perd ma mise en page (image, cadre...)
Comment faire pour envoyer ma piece jointe tout en gardant ma mise en page, et que le format soit supporter par le Fax?
Merci d'avance.
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 Dim Maildb As Object 'la base de document messagerie Dim UserName As String ' username de l'utilisateur courant Dim MailDbName As String ' Le nom de la base de document de l'utilisateur Dim MailDoc As Object ' Le courrier Dim AttachME As Object ' les rattachements Dim Session As Object ' la session notes Dim EmbedObj As Object ' les objets intégrés ' Démarre la session Notes Set Session = CreateObject("Notes.NotesSession") UserName = Session.UserName MailDbName = Left$(UserName, 1) & Right$(UserName, _ (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" ' Ouverture de la messagerie Set Maildb = Session.GetDatabase("", MailDbName) If Maildb.IsOpen = True Then ' messagerie déjà ouverte Else Maildb.OPENMAIL End If ' Création du nouveau message Set MailDoc = Maildb.CreateDocument MailDoc.Form = "Memo" 'MailDoc.sendto = "prenom nom@0033+numfax@fax" MailDoc.Subject = "Subject" MailDoc.Body = "BodyText" MailDoc.SaveMessageOnSend = True Dim Attachment As String Attachment = "chemin piece jointe" Set AttachME = MailDoc.CreateRichTextItem("Attachment") Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment") MailDoc.CreateRichTextItem (Attachment)
Partager