Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 349 fois - Téléchargée 37 fois
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
1 déc. 2004 à 15:00
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.