Envoi d'un mail avec vba (excel) et lotus notes

Soyez le premier à donner votre avis sur cette source.

Snippet vu 65 636 fois - Téléchargée 26 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

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

Ajouter un commentaire

Commentaires

Comment joindre un lien vers un fichier
Messages postés
22
Date d'inscription
mercredi 5 novembre 2003
Statut
Membre
Dernière intervention
7 mars 2011

Bonjour,
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
Messages postés
6
Date d'inscription
mardi 28 novembre 2006
Statut
Membre
Dernière intervention
2 juillet 2008

Bonjour à tous et à toutes,

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, @+
Messages postés
1
Date d'inscription
mercredi 29 août 2007
Statut
Membre
Dernière intervention
29 août 2007

Bonjour,

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?
Messages postés
6
Date d'inscription
jeudi 2 juillet 2009
Statut
Membre
Dernière intervention
26 juillet 2007

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
Afficher les 43 commentaires

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.