Dj_Ricane
Messages postés7Date d'inscriptionjeudi 20 juillet 2006StatutMembreDernière intervention17 septembre 2009
-
20 déc. 2007 à 16:00
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 2013
-
21 déc. 2007 à 05:36
Bonjour,
Le code joint permet de créer un mail dans Lotus Notes 7 SANS l'ENVOYER. Je souhaite qu'il soit simplement pré rempli et modifiable par la personne qui l'envoie.
Le code fonctionne mais je souhaiterai ajouter un fichier joint. J'ai essaye plusieurs choses mais ca ne fonctionne pas. HEEELLLPPPPP
Sub envoimail(sujet As String, destinataire As String, corps As String, Optional brochure As Variant)
' Création du mail sans envoi par la macro : '
Dim LotusSess As Object
Dim LotusWorkspace As Object
Dim LotusDoc As Object
On Error GoTo Error_CreateMailWithCopy
' Creation de la connexion avec Lotus Notes et du mail
Set LotusSess = CreateObject("notes.NotesSession")
Set LotusWorkspace = CreateObject("Notes.NotesUIWorkspace")
Set LotusDoc = LotusWorkspace.COMPOSEDOCUMENT("", "", "Memo")
' Remplissage du champ "Subject"
LotusDoc.FIELDSETTEXT "Subject", sujet
' Remplissage du "corps" du texte
LotusDoc.FIELDSETTEXT "Body", corps
' Remplissage du champ "To"
LotusDoc.FIELDSETTEXT "EnterSendTo", destinataire
Exit_CreateMailWithCopy:
On Error Resume Next Set LotusSess Nothing: Set LotusWorkspace Nothing: Set LotusDoc = Nothing
Application.StatusBar = ""
Exit Sub
Error_CreateMailWithCopy:
If Err.Number = 7412 Then
MsgBox "In order to fill correctly mail fields, please select your Inbox," & vbLf & "not Market Risk - Inbox", vbExclamation, ThisWorkbook.Name
Else
MsgBox "Le mail n'a pas été correctement crée.", vbExclamation, "ATTENTION !!"
GoTo Exit_CreateMailWithCopy
End If
End Sub
Dj_Ricane
Messages postés7Date d'inscriptionjeudi 20 juillet 2006StatutMembreDernière intervention17 septembre 2009 20 déc. 2007 à 17:46
En fait, par rapport à ma macro j'ai le message "Le mail n'a pas été correctement crée."
Je passe de la ligne : Set MyattachFile = MailDoc.CreateRichTextItem("CheminFichier")
à la ligne : Error_CreateMailWithCopy :
If Err.number = 7412 then ...
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 20 déc. 2007 à 17:57
re ouups !!!
euhh... je voulais juste ajouter que je suis pas un expert sur le sujet mais je pense que CreateRichTextItem() sert a enrichir un document text donc si ma supposition est bonne ca plante peut etre avec un pdf
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 21 déc. 2007 à 05:18
Bon vu que la dreniere fois j'ai du dire une conn... vas voir ici il ya des gents qui s'y connaissent beaucoup mieux que moi . Tu veras c'est sur un excelent site
Mais en ce qui me concerne j'utilise ce bout de code telle que je te l'ai donné et ça marche.
Tient moi au courant ça m'interesse
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 21 déc. 2007 à 05:36
Encore moi
Sur le site d'IBM je t'ai trouvé une petite explication sur
CreateRichTextItem method(je t'ai meme traduit le debut)
Creates a new rich text item on a document, using a name you specify, and returns the corresponding NotesRichTextItem object. When used with OLE automation, this method allows you to create a new rich text item and NotesRichTextItem object without using New.Crée un nouvel élément de texte enrichi sur un document, en utilisant un nom que vous spécifiez, et renvoie le correspondant NotesRichTextItem objet. Lorsqu'il est utilisé avec OLE, cette méthode permet de créer un nouvel élément de texte enrichi et NotesRichTextItem objet sans utiliser New
Defined in
Notes Document
Syntax
Set notesRichTextItem= notesDocument .CreateRichTextItem( name$ )
Parameter
name$String. The name of the new rich text item.
Return value
notesRichTextItemThe newly-created item.
Usage
For more information, see the NotesRichTextItem class.
Example
This script creates a new rich text item called ProjectDescription and adds a text value to it.
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
'...set value of doc...
Set rtitem = doc.CreateRichTextItem( "ProjectDescription" )
Call rtitem.AppendText( "Cartoon book for children ages 9-12" )
Call doc.Save( False, True )
voila pour en savoir c'est ici pour le sommaire et la pour l'explication si-dessus