'Tirer du Web, adaptée par mes soins, Zon
Public Sub EnvoieLotus(ByVal Sujet$, Optional ByVal Attachment$, _
Optional ByVal Destin, Optional ByVal CorpsMess$)
Dim Appli As Object, Username$, MailDoc As Object, AttachME As Object
Dim Session As Object, EmbedObj As Object
On Error GoTo GestErr
Set Session = CreateObject("Notes.NotesSession")
Username = Session.Username
Set Appli = Session.GETDATABASE("", Left$(Username, 1) & Right$(Username, (Len(Username) _
- InStr(1, Username, " "))) & ".nsf")
Appli.OPENMAIL
Set MailDoc = Appli.CREATEDOCUMENT
With MailDoc
.Form = "Memo"
.sendto = Destin
.Subject = Sujet
.body = CorpsMess
If Attachment <> "" Then
Set AttachME = .CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
End If
.PostedDate = Now()
.Send 0, Split(Destin, ",")
End With
Session.Close
Exit Sub
GestErr:
Select Case Err.Number
Case 429
MsgBox "Une erreur c'est produite lors de l'envoi du Mail Auto, veuillez " & _
"vérifer si lotus est ouvert sur votre session.", vbCritical, "ERREUR"
Case Else
MsgBox "Erreur N° " & Err.Number & Chr(13) & Err.Description
End Select
End Sub