Envoyer une piece attachee avec lotus notes depuis excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 193 fois - Téléchargée 35 fois

Contenu du snippet

c'est une source que j'ai recupéré sur le net et qui m'a bien aidé c'est pour cela que je la diffuse sur le site.
Ce prog permet d'envoyer depuis excel un mail avec une piece attachée via lotus notes, d'un seul click.... enjoy!!

Source / Exemple :


Sub SendMeEmail()
    Dim oSession As Object
    Dim oDB As Object
    Dim oDoc As Object
    Dim sMsg As String, sMyAttachment As String
    Dim oRichTextItem As Object
    
    Const EMBED_ATTACHMENT = 1454
    
    'open mail session and set up mail document
    Set oSession = CreateObject("Notes.NotesSession")
    Set oDB = oSession.GetDatabase("", "")
    Call oDB.OpenMail
    Set oDoc = oDB.CreateDocument
    Call oDoc.ReplaceItemValue("SendTo", oSession.UserName) 'regler ici le nom du destinataire
    Call oDoc.ReplaceItemValue("Subject", "Test Email")
    
    'create body text
    Set oRichTextItem = oDoc.CreateRichTextItem("Body")
    sMsg = "Please see the attachment below." & vbCrLf & vbCrLf
    Call oRichTextItem.AppendText(sMsg)
    
    'attach attachment
    sMyAttachment = "c:\test.txt"
    Call oRichTextItem.EmbedObject(EMBED_ATTACHMENT, "", sMyAttachment)
    
    'send
    oDoc.SaveMessageOnSend = True
    Call oDoc.Send(False)
    Set oSession = Nothing
    MsgBox "Email sent.", vbOKOnly + vbInformation
End Sub

A voir également

Ajouter un commentaire

Commentaire

asm23
Messages postés
3
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
1 décembre 2004
-
ok c bien mais je ve savoir aussi c quoi le compoisant que je doit ajouter pr travailler avec cette procedure




merci infiniment ;)

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.