Envoyer une piece attachee avec lotus notes depuis excel

Commenter

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

S'inscrire maintenant

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.

Du même auteur (ktmpb)