Envoi d'un mail par lotus notes via visual basic

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 960 fois - Téléchargée 44 fois

Contenu du snippet

Aucune description n'est fournie pour ce projet

A voir également

Ajouter un commentaire Commentaires
EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 2
19 oct. 2004 à 17:22
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
19 juin 2003 à 14:44
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
17 déc. 2002 à 12:14
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
1 oct. 2002 à 14:55
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
cesieac Messages postés 2 Date d'inscription jeudi 18 juillet 2002 Statut Membre Dernière intervention 18 juillet 2002
18 juil. 2002 à 18:35
Et en supplément mais en anglais car c'est ma langue maternelle (désolé)...

If you want to send a message to more than one person or copy or blind carbon copy the following may be of use to you.

MailDoc.sendto = Recipient
MailDoc.CopyTo = ccRecipient
MailDoc.BlindCopyTo = bccRecipient


Also for multiple email addresses you just set MailDoc.sendto to an array of variants each of which will receive the message. So

Dim recip(25) as variant

recip(0) = "emailaddress1"
recip(1) = "emailaddress2" e.t.c

maildoc.sendto = recip

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.