Maildb.OPENMAIL

[jhofman]

bonsoir

J'utilise le code suivant pour envoyer un mail depuis excel via LOTUS
Cela marche très sauf sur mon pc /ou avec mon compte lotus....

je ne sais pas ... mais ce que j'ai remarqué c'est que le ligne

Maildb.OPENMAIL

ne fait pas que Maildb.IsOpen est à True !!

Merci de votre aide

UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
                    'Already open for mail
Else
                 Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CreateDocument