EXCEL et pilotage de LOTUS ou de mail

rockerfou
Messages postés
16
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
28 novembre 2014
- 7 mars 2005 à 11:44
cs_Nini77
Messages postés
1
Date d'inscription
jeudi 27 octobre 2005
Statut
Membre
Dernière intervention
27 octobre 2005
- 27 oct. 2005 à 15:03
Bonjour,
est-il possible qu'en fonction d'une valeur d'une celleule EXCEL envoie un mail automatique via lotus ou toute autre messagerie. si oui comment ???
Merci

Thierry l'ex rocker fou

4 réponses

skowee59
Messages postés
78
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
29 juin 2006

7 mars 2005 à 20:10
Il est tout à fait possible de recueillir la valeur d'une cellule Excel pour l'utiliser comme champ Destinataire dans Lotus.

Je sais envoyer un Lotus Notes en VB.Net. Le seul hic pour le moment c'est qu'il faut que Lotus Notes soit ouvert.

Si ca t'intéresse fais moi signe car je n'ai pas le code sous la main. Il est au boulot.

Zerocool59
0
rockerfou
Messages postés
16
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
28 novembre 2014

14 mars 2005 à 11:25
Merci,

En fait, Je m'occupe d'avancement et de reporting de travaux en utilisant Primavera d'une part et des tableaux EXCEL.
Avec ces derniers, je gère la fourniture de documentation de la part des entreprises
Ce que je souhaite faire c'est envoyer automatiquement des mail si certaines dates sont dépassées mais je ne sais pas programmer l'envoi de mail, même sur outlook, j'ai beau chercher dans l'aide en ligne.
Thierry l'ex rocker fou
0
skowee59
Messages postés
78
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
29 juin 2006

14 mars 2005 à 14:46
Si ça peut t'aider, voici comment je fais pour envoyer un Lotus
(attention, j'utilise VB.Net mais je pense que cela doit être pareil):



'déclaration des variables

Dim objLotusBase As Object

Dim strLotusUtil As String

Dim strLotusNomBase As String

Dim strDest as String

Dim objLotusDoc As Object

Dim objLotusSession As Object

'création de l'objet session

objLotusSession = CreateObject("Notes.NotesSession")

strLotusUtil = objLotusSession.UserName

strLotusNomBase = "names.nsf"


objLotusBase = objLotusSession.GETDATABASE("", strLotusNomBase)

'si la Lotus n'est pas ouvert alors il l'ouvre

If objLotusBase.ISOPEN = False Then


objLotusBase.OPENMAIL()

End If

'création du document

objLotusDoc = objLotusBase.CREATEDOCUMENT

objLotusDoc.Form = "Memo"

'ton destinataire

objLotusDoc.sendto = strDest

'le sujet qui apparaitra

objLotusDoc.Subject = "Habilitations"

'le contenu de ton texte

objLotusDoc.Body = TexteLotus

'date à laquelle ton message est posté

objLotusDoc.PostedDate = Now

'envoi du Lotus

objLotusDoc.SEND(0, strDest)



Zerocool59
0
cs_Nini77
Messages postés
1
Date d'inscription
jeudi 27 octobre 2005
Statut
Membre
Dernière intervention
27 octobre 2005

27 oct. 2005 à 15:03
Bonjour,

Ma problématique se rapproche de celle de Rockerfou. En fait, je souhaite générer l'envoi d'un mail, par Lotus, lorsqu'une colonne de mon fichier Excel est modifiée. Etant débutant, je n'arrive pas à adapter le code si dessus à mon cas. Comment dois-je indiquer le lancement de la macro à la modification de la colonne ? Où apparaissent les adresses mail des destinataires (ex. [mailto:toto@soc.com toto@soc.com] ) ?

D'avance, merci bcp de votre précieuse aide.

Nini
0