DominoArea.org [Archive]

J'exécute ce code ci dessous et lorsque j'ai mon mail à l'écran la signature est au dessus du texte que j'insère.

Code : Tout sélectionner

Option Public
Use "MailLibrary_fr-FR"
Sub Initialize
'declare local variables
   Dim x As Integer
   
'instantiate objects     
   InstantiateVariables
   
   If Not collection Is Nothing Then
      If (collection.Count = 0) Then
         Messagebox "Aucun document sélectionné.",0,"Erreur"
         Exit Sub
      End If
   Else
      Exit Sub
   End If
   
   Redim SendToNames(collection.Count-1)
   
'for each document in the collection, get the mail address
'we use the GetNth method since the resulting collection is an IDTable
   For x = 1 To collection.Count
      Set note = collection.GetNthDocument(x)
      SendToNames(counter) = GetMailAddress
      counter = counter + 1
   Next
   Dim workspace As New NotesUIWorkspace
   Set mailnote = New NotesDocument(maildb)
   Dim doc  As NotesDocument
   Set uidoc = workspace.CurrentDocument
     Set doc = uidoc.Document
   mailnote.SendTo = SendToNames
   mailnote.BlindCopyTo = "baclients@toto.com"
   mailnote.Subject = doc.CompanyName(0)& " : Bulletin d'analyse"
   mailnote.body = "Veuillez trouver ci-joint le(s) bulletins(s) d'analyses de votre dernière commande. Cordialement"
   mailnote.Form = "Memo"
   mailnote.Logo = profile.DefaultLogo(0)
   mailnote.Principal = profile.Owner(0)


   Call ws.EditDocument(True,mailnote)

End Sub


Que feriez vous pour remettre cela dans l'ordre.

Merci d'avance de vos réponses.

salut

j'ai déjà bossé sur le sujet ya looongtemp, la signature est ajouté par la messagerie

j'avais 2 solutions a l'époque :

- déplacer la signature
- insérer le contenu de ton body apres l'insertion de la signature

le tout étant toujours fait après l'affichage du mail

J'ai ajouté ça à mon code à la fin et ça marche

Code : Tout sélectionner

   Set RItem = New NotesRichTextItem(mailnote,"Body")
   Call RItem.AppendText("Veuillez trouver ci-joint le(s) bulletins(s) d'analyses de votre dernière commande. Cordialement")
   Call mailnote.Save(True, False)
   Call ws.EditDocument(True,mailnote)
   Call mailnote.Remove(True)

Merci et bonne journée[/code]

Par contre comment insérer un logo pour ma signature ?

pour ajouter un logo

ton logo sert-il toujours le meme ?
si oui crée une form et mette ton logo dedans en tant qu'image (pas d'attachement)

quand tu veux mettre ton logo fait (de tete ca plantera peu-etre)

set docLogo = db.createDocument ()
docLogo.form = "FLogo"

call body.apprenRTItem (docLogo)

sinon, dans les options de signature plus tot que d'insérer du texte tu insère un fichier HTML

Code : Tout sélectionner

Option Public
Use "MailLibrary_fr-FR"
Sub Initialize
'declare local variables
   Dim x As Integer
   
'instantiate objects     
   InstantiateVariables
   
   If Not collection Is Nothing Then
      If (collection.Count = 0) Then
         Messagebox "Aucun document sélectionné.",0,"Erreur"
         Exit Sub
      End If
   Else
      Exit Sub
   End If
   
   Redim SendToNames(collection.Count-1)
   
'for each document in the collection, get the mail address
'we use the GetNth method since the resulting collection is an IDTable
   For x = 1 To collection.Count
      Set note = collection.GetNthDocument(x)
      SendToNames(counter) = GetMailAddress
      counter = counter + 1
   Next
   Dim workspace As New NotesUIWorkspace
   Set mailnote = New NotesDocument(maildb)
   Dim doc  As NotesDocument
   Set uidoc = workspace.CurrentDocument
     Set doc = uidoc.Document
   mailnote.SendTo = SendToNames
   mailnote.BlindCopyTo = "baclients@toto.com"
   mailnote.Subject = doc.CompanyName(0)& " : Bulletin d'analyse toto"
   mailnote.Form = "Memo"
   mailnote.Logo = profile.DefaultLogo(0)
   mailnote.Principal = profile.Owner(0)
   Set RItem = New NotesRichTextItem(mailnote,"Body")
   Call RItem.AppendText("Veuillez trouver ci-joint le(s) bulletins(s) d'analyses de votre dernière commande.")
   Call RItem.AddNewLine( 2 )
   Call RItem.AppendText("Cordialement")
   Call RItem.AddNewLine( 2 )
   Call RItem.AppendText("Service qualité")
   Call RItem.AddNewLine( 1 )
   Call RItem.AppendText("société toto")
   Call RItem.AddNewLine( 1 )
   Call RItem.AppendText("zi du titi")
   Call RItem.AddNewLine( 1 )
   Call RItem.AppendText("00000 maville")
   Call RItem.AddNewLine( 1 )
   Call RItem.AppendText("Tél: xxxxxxxxxx")

   Call mailnote.Save(True, False)
   Call ws.EditDocument(True,mailnote)
   Call mailnote.Remove(True)
   'Call ws.EditDocument(True,mailnote)
   
   
   
End Sub

En fait voici mon code , ce code enléve ma signature présente dans mes préférences.

du coup je remets une signature en texte

Code : Tout sélectionner

   Call RItem.AppendText("Service qualité")
   Call RItem.AddNewLine( 1 )
   Call RItem.AppendText("société toto")
   Call RItem.AddNewLine( 1 )
   Call RItem.AppendText("zi du titi")
   Call RItem.AddNewLine( 1 )
   Call RItem.AppendText("00000 maville")
   Call RItem.AddNewLine( 1 )
   Call RItem.AppendText("Tél: xxxxxxxxxx")

et maintenant je cherche comment insérer mon logo d"entreprise.

lis mon poste pour le logo