patchap40
Messages postés29Date d'inscriptionmercredi 5 avril 2006StatutMembreDernière intervention22 mai 2006
-
18 mai 2006 à 14:18
filec
Messages postés13Date d'inscriptionvendredi 3 septembre 2004StatutMembreDernière intervention 3 octobre 2006
-
19 juin 2006 à 17:26
bonjour
voila mon problème, je bosse sous access/vb6, j'ai créer un bouton me permettant d'envoyer un mail via lotus avec une pièce jointe qui est en fait un état :
voilà le code correspondant
filec
Messages postés13Date d'inscriptionvendredi 3 septembre 2004StatutMembreDernière intervention 3 octobre 2006 19 juin 2006 à 17:26
Bonjour,
J'utilise aussi Lotus pour envoyer des Emails + pièces jointes à partir d'Excel, voici un bout de code :
'
Dim objNotesSession As Object
Dim objNotesMailFile As Object
Dim objNotesDocument As Object
Dim objNotesField As Object
Dim EMailSendTo As String
Dim EMailCCto As String
Dim EMailBCCTo As String
Dim EmailSubject As String
'
Set objNotesSession = CreateObject("Notes.NotesSession")
If Err.Number > 0 Then Err.Clear
Set objNotesMailFile = objNotesSession.GETDATABASE(Lotus1, Lotus2) 'Serveur Lotus Notes
EMailSendTo = destinataire
EMailCCto = Copy To...
Set objNotesDocument = objNotesMailFile.CREATEDOCUMENT
Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", EmailSubject)
Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", EMailSendTo)
Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCto)
Set objNotesField = objNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo)
Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body")
With objNotesField
.APPENDTEXT RichTextBox1.Text ' corps du texte
.ADDNEWLINE (2) ' saut de ligne
End With
''Attach the file --1454 indicate a file attachment
objNotesField = objNotesField.EMBEDOBJECT(1454, "", TonDoc)
objNotesField.ADDNEWLINE (1)
objNotesDocument.Save = True
objNotesDocument.SEND (False)
Bon courage
Filec