Public Sub SendNotesMail(ByVal Subject As String, ByVal Attachment As String, _ ByVal Recipient As String, ByVal ccRecipient As String, _ ByVal bccRecipient As String, ByVal BodyText As String, _ ByVal SaveIt As Boolean, ByVal Password As String) Dim Maildb As Object 'La base des mails Dim UserName As String 'Le nom d'utilisateur Dim MailDbName As String 'Le nom de la base des mails Dim MailDoc As Object 'Le mail Dim AttachME As Object 'L'objet pièce jointe en RTF Dim Session As Object 'La session Notes Dim EmbedObj As Object 'L'objet incorporé 'Crée une session notes Set Session = CreateObject("Notes.NotesSession") '*** Cette ligne est réservée aux versions 5.x et supérieur : *** '' Session.Initialize (Password) 'Récupère le nom d'utilisateur et crée le nom de la base des mails UserName = Session.UserName MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 'Ouvre la base des mails Set Maildb = Session.GETDATABASE("", MailDbName) If Not Maildb.IsOpen Then Maildb.OPENMAIL 'Paramètre le mail à envoyer Set MailDoc = Maildb.CREATEDOCUMENT MailDoc.Form = "Memo" MailDoc.sendto = Recipient MailDoc.CopyTo = ccRecipient MailDoc.BlindCopyTo = bccRecipient MailDoc.Subject = Subject MailDoc.Body = BodyText MailDoc.SAVEMESSAGEONSEND = SaveIt 'Prend en compte les pièces jointes If Attachment <> "" Then Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment") MailDoc.CREATERICHTEXTITEM ("Attachment") End If 'Envoie le mail MailDoc.PostedDate = Now() MailDoc.SEND 0, Recipient Set Maildb = Nothing Set MailDoc = Nothing Set AttachME = Nothing Set Session = Nothing Set EmbedObj = Nothing End Sub
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.