Envoi d'un mail avec vba (excel) et lotus notes
Soyez le premier à donner votre avis sur cette source.
Snippet vu 66 704 fois - Téléchargée 28 fois
Contenu du snippet
Macro qui créer un mail et l 'envoi avec ou sans Lotus notes d'ouvert. La macro utilise les fonctions COM de lotus (version > 5.0.2b)
Condition de développement :
Windows 2000
Office 2000
Lotus Notes 5.0.10
Si vous voulez envoyé plusieurs doc attaché c simple vous utiliser autant de fois qu il y a de doc à attacher cette fonction :
Set object = rtitem.embedObject(1454, "", "chemin et nomcomplet du doc","")
Condition de développement :
Windows 2000
Office 2000
Lotus Notes 5.0.10
Source / Exemple :
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
Conclusion :
Si vous voulez envoyé plusieurs doc attaché c simple vous utiliser autant de fois qu il y a de doc à attacher cette fonction :
Set object = rtitem.embedObject(1454, "", "chemin et nomcomplet du doc","")
A voir également
- Vba lotus notes
- Notes vba - Meilleures réponses
- Vba notes - Meilleures réponses
- VBA - Envoi de mail à tout les destinataires d'une colonne Excel via lotus Notes ✓ - Forum - Visual Basic 6
- Ourvrir un document autre qu'un mail dans Lotus Notes depuis VBA/VB6 ✓ - Forum - Visual Basic 6
- Envoi de mail via lotus notes - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Envoi d'un mail par lotus notes via visual basic - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Visual Basic / VB.NET : Envoyer un mail en utilisant lotus notes server (2nde méthode) - Code - Guide
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.