T
Thomas®
Guest
Bonjour le forum,
JJM (que je remerci au passage) m'a donné une macro qui permet d'envoyer des lotus depuis excel.
j'avais deja essayé avant mais sans succes car tjrs un message d'erreur.
mais vu la configuration de JJM qui le fait tourné sur excel 97 sans problème et lotus note 5 je me suis dit que mois avec mon excel 97 et lotus 6.5 sous XP cela devrait fonctionner.
mais non jais ce beau message erreur 429 un composant activex ne peut pas créer d'objet inch:
si quelqu'un sait pourquoi ??
ci dessus j'ai mis le code utilisé (enfin jusqu'où il bloque)
arrivé à 'Set Session = CreateObject('Notes.NotesSession')'
MSG D'ERREUR
D'avance merci pour votre aide
Thomas®
JJM (que je remerci au passage) m'a donné une macro qui permet d'envoyer des lotus depuis excel.
j'avais deja essayé avant mais sans succes car tjrs un message d'erreur.
mais vu la configuration de JJM qui le fait tourné sur excel 97 sans problème et lotus note 5 je me suis dit que mois avec mon excel 97 et lotus 6.5 sous XP cela devrait fonctionner.
mais non jais ce beau message erreur 429 un composant activex ne peut pas créer d'objet inch:
si quelqu'un sait pourquoi ??
Code:
Option Explicit
Public Const SepList = ';'
Sub TestNotes()
'Envoi un message à Lotus Notes avec Pièces jointes
'Si Notes n'est pas ouvert, il sera ouvert automatiquement si présent sur le poste
Dim Maildb As Object 'La base de données mail
Dim strUserName As String 'Nom de l'expéditeur
Dim MailDoc As Object 'Le document
Dim Session As Object 'La session Lotus Notes
Dim AttachME As Object 'Le fichier joint
Dim EmbedObj As Object 'L'objet incorporé ('Attachment')
Dim PieceJointe As String 'Pièce jointe à spécifier éventuellement
Dim Dest As Variant, ccDest As Variant, Message, Sujet, Ligne
Dim Pos As Integer, Cpte As Integer, Fichier As String, Champ As String
'Stop
'On Error GoTo ERREUR
'Débute une session Lotus Notes
Set Session = CreateObject('Notes.NotesSession')
ci dessus j'ai mis le code utilisé (enfin jusqu'où il bloque)
arrivé à 'Set Session = CreateObject('Notes.NotesSession')'
MSG D'ERREUR
D'avance merci pour votre aide
Thomas®