Envoi d'état Access avec Lotus Notes

Christian wrote:
| Bonjour à toutes, tous
|
| Je cherche le moyen d'envoyer des états créés
| sous "Access", via la messagerie Lotus Notes.
|
| Avez vous une méthode?
|
| Merci d'avance
|
| Cdt
|
| Christian

Bonjour,

Si la méthode sendobject avec l'état au format RTF en pièce jointe ne convient pas,
regarde avec le code ci-dessous si tu peux accéder
à une propriété mailDoc.HTMLBody (ou ressemblante)
à la place de mailDoc.Body

Si oui, alors il te suffit d'adapter cette procédure pour Lotus Notes
en fonction de celle que je propose pour Outlook :
http://memoaccess.free.fr/outlook.htm#SendReportHTML

<CODE>
Public Sub SendNotesMail(Destinataire As Variant, ObjetDuMessage As Variant,
Attachment As Variant, TexteDuMessage As Variant, SaveIt As Boolean)
'Set up the objects required for Automation into lotus notes

Dim mailDb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database name
Dim mailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim I As Integer
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems you
'can pass an empty string
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - _
InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set mailDb = Session.GETDATABASE("", MailDbName)
If mailDb.ISOPEN = True Then
'Already open for mail
Else
mailDb.OPENMAIL
End If
'Set up the new mail document
Set mailDoc = mailDb.CREATEDOCUMENT
mailDoc.Form = "Memo"
mailDoc.sendTo = Destinataire '"Jean-Marc LUCIEN/AC750/REC"
'Recipient
mailDoc.subject = ObjetDuMessage
mailDoc.body = TexteDuMessage
mailDoc.ReturnReceipt = "1"

mailDoc.SaveMessageOnSend = SaveIt
'Set up the embedded object and attachment and attach it
If Attachment(0) <> "" Then
Set AttachME = mailDoc.CREATERICHTEXTITEM("Attachment")
For I = 0 To UBound(Attachment, 1)
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "",Attachment(I), "Attachment")
Next I
mailDoc.CREATERICHTEXTITEM ("Attachment")
End If
'Send the document
mailDoc.PostedDate = Now()
'Gets the mail to appear in the sent items folder
objNotesDocument.SaveMessageOnSend = True
mailDoc.SEND 0, Destinataire
'Clean Up
Set mailDb = Nothing
Set mailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub
'-----------------------------------------------------------------
</CODE>

ps : je n'ai pas notes donc je n'ai pas testé ....

à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Bonjour.

Tu trouveras un modèle sur :
Envois de courriel (2004/05/14) *Nouveau*
Voici un utilitaire complet pour l'envois de courriel par Access, il
fonctionne avec les messageries : Outlook, Outlook Express et Lotus Notes, à
noter qu'il gère aussi les fichiers attachés.
http://www.logicielappui.com/tips/AccXP_Mail.zip
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christian" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:15d9f01c446fa$7d0a93b0$a001280a@phx.gbl...
Bonjour à toutes, tous

Je cherche le moyen d'envoyer des états créés
sous "Access", via la messagerie Lotus Notes.

Avez vous une méthode?

Merci d'avance

Cdt

Christian