Discussion :

[Mathusalem]

Bonjour à tous !


J'envoie actuellement des reports composés sous excel par lotus notes automatiquement : je transforme ma sheet en pdf et hop !

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
 
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 recip(7) As Variant ' tableau des destinataires
    'recip(0) = "toto@bidule.fr"
 
 
'Envoi du fichier par e-mail
  Set Session = CreateObject("Notes.NotesSession")
  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 = recip 'Envoi du document à la liste de destinataires (VOIR DIM)
  MailDoc.Subject = "subject"
  MailDoc.SaveMessageOnSend = SaveIt
 
 
 
  'Set up the embedded object and attachment and attach it
  Attachment = FOLDER_LONG & FILE_NAME & " - " &  ".pdf"
  If Attachment <> "" Then
    Set AttachME = MailDoc.CreateRichTextItem("Attachment")
    Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment")
    MailDoc.CreateRichTextItem ("Attachment")
  End If
 
  'Send the document
  MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
  MailDoc.Send 0, Recipient

Seulement j'aimerais à présent inclure mes tableaux dans le corps du mail, je n'ai aucune idée de la marche à suivre et Google n'a pas été vraiment mon ami sur ce coup là...


Vous avez une idée ?


merci !

[Godzestla]

Salut,

J'ai une solution en attachement mais ce n'est pas cela que tu veux je pense ?
Tu veux le tableau en clair ? C'est possible cela avec Lotus notes ?

[fring]

Bonjour,

Ceci pourra peut-être t'aider

Comment insérer une plage de cellules dans le corps du message ?
.

[Mathusalem]

après quelques investigations...

la solution de la faq, que vous proposez ne fonctionne pas pour moi, car la propriété "MailEnvelope" est visiblement relative à Outlook et dans mon cas il s'agit de Notes.


La seule solution que je vois est de convertir mon tableau en HTML et de balancer ça dans le body.

[Godzestla]

Merci de publier ta solution quand ce sera au point car je sais mettre quelquechose en attachement dans Lotus Notes, mais je n'ai pas trouvé le moyen de le mettre en clair.

Mais ca doit etre possible car je viens de faire dans Notes
Create -> Object -> Microsoft Excel Worksheet (et tu peux même mettre Object from a file).

[Mathusalem]

il y a du code déjà existant, cherche "xl2html" sur le net.

je pense que je vais modifier un peu ça, pour qu'il prenne un range au lieu d'une sheet et qu'il me renvoie une string plutôt qu'un fichier .html et basta.

par contre le code n'est pas sous GPL, je ne pense pas que j'aurai le droit de le publier, même ici