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, @+
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 .
Les amis j'ai un soucis sérieux
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
J'essaie depuis quelque temps de trouver une solution pour envoyer automatiquement des mails (via VBA et Lotus) en Rich Text.
Plus exactement, je veux pouvoir copier une plage de cellules Excel et la coller en format Rich Text dans le corps d'un memo Lotus Notes.
C'est possible de le faire manuellement, en faisant Lotus->Edit->Paste Special->Rich Text, mais j'arrive pas à le faire par vba.
J'ai essayé plusieurs méthodes mais rien ne marche correctement.
MERCI, pour le code , je débute , j'ai deux questions , comment mettre automatiquement dans la macro le mot de passe que lotus demande quand il s'ouvre , et comment modifier MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set mailDb = Session.GETDATABASE("", MailDbName)
pour que mon mail parte avec ma boite commune ex: crc-dud@france.fr et nom par ma boite dominique@france.fr, car j'ai sur mon lotus deux possibilités pour envoyer et recevoir
Je me suis trompé dans mon message précédent :
J'ai "Call doc.Send(False)" et quand je mets "True" là j'obtien une erreur.
(C'est sans doute pour ça que le mail ne part pas de suite, mais pour autant il ne reste pas affiché à l'écran de l'utilisateur)
Merci d'avance pour votre aide
PS: désolé de rajouter un commentaire, mais je n'ai pas trouvé comment éditer mon message précédent ... si un modérateur peut faire le necessaire ^^
Ce code est l'un des seuls qui fonctionne sur Lotus 6 et sur Lotus 7 que j'ai pu trouvé : donc un grand merci à son auteur de l'avoir posté ici !
Cependant, je rencontre un problème : je voudrais que le mail généré, soit affiché dans LotusNotes et que se soit l'utilisateur qui valide l'envoi (pour qu'il puisse vérifier une dernière fois son contenu). Actuellement le mail est généré dans le dossier "SEND", marqué comme non lu, et pas envoyé tout de suite. Dans ma macro j'ai mis :
doc.SAVEMESSAGEONSEND = True
Call doc.Send(True)
Si je mets "Call doc.Send(False)" j'obtiens une erreur.
Si quelqu'un a une idée, merci de bien vouloir la partager avec moi ^_^
J'ai regardé les différents codes qui sont proposés mais je n'ai pas réussi a trouver mon bonheur...Configuration de Lotus relativement spécifique à l'entreprise...
J'ai cependant découvert ce code. Il créé un nouveau mémo sous Lotus et met en pièce jointe le fichier Excel. Reste à l'adapter à chacun :)
Bonjour,
J'ai utilisé ce code pour envoyer un mail avec un texte et je n'ai pas eu de problème
Aujourd'hui j'aurai besoin de mettre dans le corps de mon texte la copie d'un tableau
Comment puis-je faire ?
Sauf erreur de ma part je n'ai pas vu la réponse dans vos instruction
Merci de votre aide
Salut
Il me semble que pour expédier une liste de fichiers, il suffit de mettre cette liste dans un tableau String et de fournir le nom du tableau à la place du nom du fichier. A confirmer.
lol DLupu : Depuis, mon client a abandonné Notes - Je n'ai donc plus de problème !
Merci jmlucienvb pour ton code. Je l'ai teste et marche trés trés bien. Par contre je ne sais pas comment attacher plusieurs fichiers, est-ce que tu pourrais m'aider? Merci d'avance
Je souscris à 100% à la demande de Jack (qui date quand même depuis 2 ans), c'est à dire : est-ce que vous connaissez un moyen pour ouvrir la fenetre du message avant de l'envoyer afin de faire 2-3 modifications si besoin?
Super code qui fonctionne mais qui provoque chez les destinataire le message d'erreur suivant:
"A stored form can not contain computed subforms"
Je pense qu'il y a un conflit avec ma signature automatique ou mon en tete par défaut... Mais je n'en suis pas sur et surtout je ne sais pas du tout ce qu'il faut adapter dans le code...
Bonjour,
J'ai utilisé ce code afin de faire une macro envoyant plusieurs fichiers à diverses utilisateurs. La macro était lancé sur NT avec access97. Après être passé sous XP et office2002, quand je lance la macro, j'ai un message d'erreur qui me stipule que le fichier .id est introuvable.
Savez-vous comment régler ce problème ?
Merci pour ton code jmlucienvb il m'a bien aidé. Cependant je recherche encore une option, je souhaiterai demander un accusé de réception à l'ouverture du message. Si quelqu'un pouvait m'aider ce serait cool. Merci d'avance.
Dans le code que j'ai mis plus haut, avec la fonction sendmail un paramètre attachment permet de gérer la chaine du chemin au fichier à joindre
Si tu as une difficulté, mail moi à :
jean-marc.lucien@acoss.fr
SAlut
Désolé d'apprendre que tu n'as plus de job :( mais je te remerci pour le code source il me sera bien utile je pense :)
Bon courrage pour la suite
Bonjour, l'envoie de mail par vba excel m'interresse beaucoup mais lorsque j'exécute pas à pas et que j'arrive à la ligne suivante : "Set db = dir.OpenMailDatabase", je suis tout de suite envoyé à l'étiquette suivante : TraiteErreur:
Pourquoi ai-je une erreur a cette ligne, auriez-vous une idée ?
Merci beaucoup,
Gagou22
Mais juste une question pourquoi tu demande à l'utilisateur de saisir son mot de passe de Lotus Notes, alors que juste apres sur l'Initialize, Lotus redemande le mot de passe !!!!!
Memo est le type de nouveau document que tu veux créer (=nouveau mail pour Lotus). pour écrire du texte, tu dois écrire avant "Set rtitem = doc.createRichTextItem("Body")"
: Call doc.APPENDITEMVALUE("body", "Text à écrire")
Je ne sais pas trop dans l'exemple de Smallcop mais dans le code que j'ai mis plus haut, mailDoc.body = BodyText permet d'attribuer au corps du message la chaine con,tenue dans la variabl BodyText...
Bonjour, et merci pour ce tres bon code, il correspond pardaitement a ce que j avais bessoin, sachant que je ne suis absolument pas programateur.
alors je pose une question tres bete surement, mais dont je n arrive pas a trouver la reponse, comment ecrire un texte dans l email?j arrive a chosir tout le reste, sujet, destinataire, fichier, mais pas a ecrire de texte
de plus a quoi servent les champs "memo" et "body"?
Salut Smallcop et merci d'avoir répondu à mes questions,
1/ Set dir = Session.GETDBDIRECTORY("FranceServer1/DCI/BME/Omnia Group"). J'ai bien compris qu'il s'agit du nom de mon serveur Notes et que si je n'en avais qu'un je pourrais mettre "". Cependant, là ou je veux utiliser le code, il y en a plusieurs et j'aimerais que tu me dises dans quel menu de l'interface client Notes je peux trouver le nom du serveur utilisé. (Je sais, c'est une question un peu neuhneuh, mais Notes n'est pas vraiment mon logiciel favori, je ne l'ai pas choisi !)
2/ Tu avais parfaitement raison, c'est la session qui n'était pas initialisée (Session has not been initialised). Tout est rentré dans l'ordre maintenant, merci.
3/ Question subsidiaire : Y a-t-il un moyen de trouver le mot de passe de l'utilisateur (par exemple dans la base de registre, ou un fichier de config.),sans que celui-ci le saisisse, ou à défaut, de lui permettre de le saisir en le masquant avec des **** ? Cela me servirait beaucoup.
Alors ca correspond au nom de ton serveur sur lequel tu connect lotus, si t en a qu 'un, tu peux mettre : ""
non je ne pense pas que cela dépende du parametre de Session.GETDBDIRECTORY.
Es tu sur que le debugger te jette au niveau de session.initialize. Si oui, vérifie que ta variable session est bien initialiser en debuggant pas a pas, car j'ai fait pas mal de recherche avant d'écrire ce code et j'ai trouvé pas mal d'exemple qui avait : Set Session = CreateObject("Notes.NOTESSESSION") rien ne marchait et le debugger ne me jetter que quelques lignes plus loin, je me suis rendu compte Session n'était pas initialisé et que notes.NotesSession n'existait pas... vérifie dejà ça.
Si ca peut t aider tu as qq explications :
JACK: mon code fait tout en transparent grace aux fct COM, mais tu n'es pas obliger de les utiliser, le code ne serait pas exactement le meme, il faut utiliser openMail() vas voir à cette @ : http://www.fabalou.com/VBandVBA/lotusnotesmail.asp je regarderai de plus pres demain
Je suis ravi que tu ai créé ce code. Il correspond exactement à ce que je souhaite faire.
J'ai 2 questions à te poser :
1/ A propos du paramètre suivant :
Set dir = Session.GETDBDIRECTORY("FranceServer1/DCI/BME/Omnia Group")
Je comprends qu'il s'agit d'un paramètre à adapter. Peux-tu me dire ou je peux trouver celui-ci dans l'interface Lotus ?
2/Est-ce le fait que je n'ai pu trouver le moyen de le paramétrer qui m'empêche d'utiliser l'instruction Session.initialize ?
(J'ai vérifié ma version de Lotus : 5.0.6a et j'ai bien Win2000 et XL2000. )
Salut smallcop et merci de ta réponse.
Ok pour cette technique, c'est celle que j'ai adopté. Seul problème, c'est qu'elle n'autorise pas un nombre de caractères très élevé, or, à chaque fois, j'ai une cinquantaine de destinataires ...
Pour l'instant, je n'ai résolu ce problème qu'en copiant dans le ClipBorad la liste formattée de mes destinataires que je colle dans le mémo ...
En fait, j'ai cherché s'il y avait une autre syntaxe que "Send" dans LotusNotes, style "Open", mais sans résultat. (voilà pourquoi ma question)
Merci encore.
Salut Jack
Si tu veux afficher un nouveau memo avec un code VBA voila comment il faut faire :
Private Sub CommandButton2_Click()
URLto = "mailto:toto@vba.com" & "?subject=Sujrt du mail" & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
Rien a voir avec lotus, en fait ce code ouvre un nouveau mail quelque soit ton programme de gestion de mail :(Lotus Notes, Outlook, Outlook Express...) donc pour que ca marche il fauut que ton prog de gestion des mails soit Lotus notes.
Voila je c'est pas si c'est ca que tu demandais, si ça ne répond pas à ton problème, laisse un commentaire plus precis et je te répondrai si je peux t'aider.
Ce code répond à tous les cas possibles par exemple plusieurs destinayires...
Facile à adapter pour plusieurs doc en transformant attachment en tableau...j'utilise ce code tous les jours donc si besoin complément mail à :
jean-marc.lucien@acoss.fr
Dim Recipient(2) As Variant
Public Sub SendNotesMail(subject As String, Attachment As String, BodyText As String, SaveIt As Boolean)
'Set up the objects required for Automation into lotus notes
Recipient(0) = "Nom@XXX.fr"
Recipient(1) = "Nom2@xxx.fr"
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)
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems you
'can pass an empty string
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 = Recipient '"Jean-Marc LUCIEN/AC750/REC" 'Recipient
mailDoc.subject = subject
mailDoc.body = BodyText
mailDoc.ReturnReceipt = "1"
mailDoc.SAVEMESSAGEONSEND = SaveIt
'Set up the embedded object and attachment and attach it
Attachment = "e:\Atelier\EnvoiCourrierParLotus\DIFI_COUR_COTG.xls" 'txtFromEmailAddress
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
'Clean Up
Set mailDb = Nothing
Set mailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub
Salut smallcop
Toi qui a l'air d'avoir travaillé sur LotusNotes :
Saurais-tu comment demander à LotusNotes d'ouvrir un mail sans qu'il l'envoie, juste en lui donnant la liste des destinataires, un objet et c'est tout. Qu'il affiche le mémo, que tu puisses saisir le texte du message et faire l'envoi manuellement.
Ca fait un bout de temps que je cherche sans solution.
Et si tu regardes le sujet du code c'est "Macro qui créer un mail et l 'envoi avec ou sans Lotus notes d'ouvert.", donc la fonction principale de ce code est l envoi d'un mail et ça : C'EST TESTÉ CA MARCHE. apres si l'on veux ajouter le classeur c'est en bonus et je previens que ce que j ai mis n'est pas sur à 100%. c'est vrai j'aurais pu envoyé un mail vide... mais bon je ne voyais pas l interet...
Je tiendrais compte de ta remarque pour la prochaine fois
En fait je voulais juste faire une petite remarque sur le
fait qu'il faut toujours etre sur de ce que l'on fait ça evite bien
des commentaires idiot...
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
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, @+
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?