ENVOI D'UN MAIL PAR LOTUS NOTES VIA VISUAL BASIC

Signaler
Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009
-
EvilGost
Messages postés
235
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 mai 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4066-envoi-d-un-mail-par-lotus-notes-via-visual-basic

EvilGost
Messages postés
235
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 mai 2011
2
as-tu pensé a ajouter le composant Lotus Notes dans VB?
cs_Ironik
Messages postés
1
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
19 juin 2003

Ce code est très interressant parce qu'en fait je dois envoyer un mail avec différentes infos mais il faut que l'utilisateur le voit à l'écran avant de l'envoyer et après avoir saisi le source, cette procédure plante à la première ligne (à l'ouverture de la session). Est ce qu'on peut me dire pourquoi ? ou y a t-il une autre façon de faire ? Merci
cs_PYLB
Messages postés
2
Date d'inscription
mercredi 12 juin 2002
Statut
Membre
Dernière intervention
17 décembre 2002

Je suis très intéressé par ce programme mais ......

existe-t 'il un ocx ou une dll qui permet de creer les objets notes.

doit -on faire une manip quelconque dans la base de registres

Merci pour les conseils
cs_david411
Messages postés
1
Date d'inscription
mardi 1 octobre 2002
Statut
Membre
Dernière intervention
1 octobre 2002

merci pour ce code qui marche super bien voila pour mettre 2 fichiers ou + en pj:
pj1 et pj2 en string

If pj1 <> "" Then
Set obj_piece_jointe = lemel.CREATERICHTEXTITEM("Attachment")
Set obj_pj_inclu = obj_piece_jointe.EMBEDOBJECT(1454, "", pj1, "Attachment")
Set obj_pj_inclu = obj_piece_jointe.EMBEDOBJECT(1454, "", pj2, "Attachment")
lemel.CREATERICHTEXTITEM ("Attachment")

End If