Public Sub EnvoieLotus(ByVal Sujet$, Optional ByVal Attachment$, _
Optional ByVal Destin, Optional ByVal CorpsMess$)
Dim Appli As Object
Dim Username$
Dim MailDoc As Object
Dim AttachME As Object
Dim Session As Object
Dim 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
sub jetesteenvoiemail
envoielotus "Le sujet à mettre",thisworkbook.fullname,"tootoo@francenet.fr","veuillez troiuver en pj ....."