Soyez le premier à donner votre avis sur cette source.
Snippet vu 66 704 fois - Téléchargée 28 fois
Private Sub UseLotus() Dim Session As Object Dim db As Object Dim doc As Object Dim rtitem As Object Dim object As Object Dim fs As Object Dim Principaux(2) As String Dim Copies(3) As String Dim dir As Object Dim inti As Integer Dim passwd As String On Error GoTo TraiteErreur 'Demande le password Lotus(Dans le cas ou la session necessite un passwd) passwd = InputBox("Entrer votre password Lotus:", "Password") ' Création de la session Notes Set Session = CreateObject("Lotus.NOTESSESSION") 'Ouverture d'une session NOTES Call Session.Initialize(passwd)'si pas de passwd pas de parametre pour initialize Set dir = Session.GETDBDIRECTORY("FranceServer1/DCI/BME/Omnia Group") Set db = dir.OpenMailDatabase ' Création d'un document Set doc = db.CREATEDOCUMENT 'affectation du type mail Call doc.APPENDITEMVALUE("Form", "Memo") Call doc.APPENDITEMVALUE("Sendto", "destinataire@vba.com") Call doc.APPENDITEMVALUE("subject", "sujet") doc.SAVEMESSAGEONSEND = saveit 'sauvegarde du mail à l envoi Set rtitem = doc.createRichTextItem("Body") Dim nom As string nom = ThisWorkbook.FullName 'Attachement du classeur au mail Set object = rtitem.embedObject(1454, "", nom,"") Call doc.Send(True) Set object = Nothing Set rtitem = Nothing Set doc = Nothing Set db = Nothing Set Session = Nothing Exit Sub TraiteErreur: MsgBox "Erreur Critique durant l envoi .", vbCritical, "Error" Set object = Nothing Set rtitem = Nothing Set doc = Nothing Set db = Nothing Set Session = Nothing Set fs = Nothing End Sub
13 juil. 2015 à 10:44
15 févr. 2011 à 13:46
impeccable
Pour ma part je cherche a mettre en gras une partie de mon corps de message
qqn a t il une idee ?
Merci d'avance
23 nov. 2007 à 16:52
Cette macro fonctionne sur 50% des postes de mon réseau d'entreprise mais sur les autres ce code plante sur :
Set Session = CreateObject("Lotus.NotesSession") ' l'oject Session et bien créer avec quelques valeur vide
>> Session.Initialize ("")
j'obtiens l'erreur : "Notes error: Could not open the ID file"
pour l'instant la seule chose c'est de ré-installer lotus note a la main ! trop lourd pour faire ca sur tous le réseau.
Ce type de problème est évoqué plus haut conf: "Commentaire de smallcop le 21/01/2004 23:01:26"
mais je ne comprend pas comment le résoudre ?
si quelqu'un a une idée pour moi...
Merci d'avance à tous, @+
29 août 2007 à 14:54
Le code fonctionne trés bien mais je rencontre le méssage suivant à l'ouverture du courrier : un masque enregistré ne doit pas contenir de sous masque calculés .
Est-ce que quelqun pourrait m'aider?
18 juil. 2007 à 14:50
J'ai crée deux fichiers d'inscription VBA Excel (avec près de 30 items entrées), quand j'envoie ces deux fichiers en pièces attachées par e-mail à un autre ordinateur sur un autre PC, le fameux bouton sur lequel on appuye et qui doit s'ouvrir sur le fameux formulaire d'inscription avec des cases à cocher des menus déroulants etc. ne s'ouvre pas.
Pourtant au début il dit bien activer les Macros ?
Je suis embêté. En fait mes deux applications ne fonctionneent que sur mon propre Ordinateur PC
firouz.yahyavi@obspm.fr
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.