The6L20
Messages postés1Date d'inscriptionlundi 4 décembre 2006StatutMembreDernière intervention 4 décembre 2006 4 déc. 2006 à 15:50
bonjour,
je cherche a envoyer des mails avec une piece jointe a partir d'acces dans lotus, j'ai reussi a faire pour que mon etat je mette en piece jointe, pour mettre mes destinaitaire, mais aujourd'hui on me demande que le message qui est toujours le meme pour tous les mails cree(insere directement dans le module) soit mis en page, et je n'arrive pas a trouver une aide concluente la dessus! help!
merci
julien_u
Messages postés4Date d'inscriptiondimanche 22 janvier 2006StatutMembreDernière intervention 4 juillet 2006 4 juil. 2006 à 16:55
Est ce que cette fonction peut être facilement transformable en VBS ?
Merci !
ichtawn
Messages postés4Date d'inscriptiondimanche 13 mars 2005StatutMembreDernière intervention27 mai 2005 14 avril 2005 à 00:22
salut tt le monde , je suis entrain de developper une application en VB qui va me permetre d'extraire des dnnées de la base du document lotus notes ( surtout le document Email) , et envoyer des email a cette base du document , mais je suis vraiment bloquer , si vous avez qlq chose pour m'aider !!!!!! merci d'avance !!!!!
Eldyru
Messages postés2Date d'inscriptionlundi 6 novembre 2000StatutMembreDernière intervention21 janvier 2005 21 janv. 2005 à 15:24
Arf ! marchi bien , ça marche tip top...
Drouzig
Messages postés3Date d'inscriptionvendredi 17 décembre 2004StatutMembreDernière intervention 5 décembre 2005 21 janv. 2005 à 09:48
Hello,
peut-être as-tu déjà trouvé la solution, c'est pas très complexe : au lieu de passer une simple chaîne de caractères pour le destinataire à notre fonction d'envoi de mail, on va lui passer un tableau.
L'en-tête de la fonction devient ainsi :
Public Sub SendNotesMail(Recipient() As Variant, SaveIt As Boolean, Optional Subject As String, Optional BodyText As String)
...
End Sub
Et dans ta partie de code qui appelle cette fonction, il te faudra définir ton tableau de destinataires :
Dim tabDestinataire(10) as Variant ' taille arbitraire, ça se change dynamiquement au besoin
Eldyru
Messages postés2Date d'inscriptionlundi 6 novembre 2000StatutMembreDernière intervention21 janvier 2005 20 janv. 2005 à 22:43
Bonjour,
Un petit problème avec cette source... Elle ne fonctionnne pour moi que si dans les destinataires du mail je ne mets qu'une seule entrée.
Lorsque que j'en mets plusieurs, séparées par ", " comme lorsque je tape mon mail, j'ai une erreur me disant que lotus ne parvient pas à trouver le destinataire dans le carnet d'adresse...
Donc la question : comment rentrer plusieurs noms d'affiler ?
Welsoft
Messages postés11Date d'inscriptionjeudi 11 novembre 2004StatutMembreDernière intervention28 décembre 2004 28 déc. 2004 à 11:39
Tout samplement j aim pas les source q pas de zip !
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 20 déc. 2004 à 12:39
Merci beaucoup Drouzig
Voilà de nouveaux horizons pour moi ! Cool, je connaissait pas le ComposeDocument : je m'en va essayer ça dès que je pourrais.
Drouzig
Messages postés3Date d'inscriptionvendredi 17 décembre 2004StatutMembreDernière intervention 5 décembre 2005 20 déc. 2004 à 10:59
Salut Jack,
si j'ai bien compris ce que tu cherches à faire, la fonction suivante devrait t'aider. Malheureusement, si ta base de mails est protégée par mot de passe, celui-ci te sera demandé pendant l'exécution, je n'ai pas creusé plus que ça, je pense qu'on doit pouvoir régler ce pb de password popup...
Drouzig Chat
Private Sub PrepareNotesMemo(ByVal Recipient As String, ByVal Subject As String, ByVal Memotext As String)
' L'objet client Notes
Dim nlWkspace As Object
' L'objet NotesDocument
Dim nlDoc As Object
Dim strMailDbname As String
' Ouverture du client Lotus Notes
Set nlWkspace = CreateObject("Notes.NotesUIWorkspace")
' Ouverture de la base de courrier
' Demande le mot de passe de la base le cas échéant
nlWkspace.ADDDATABASE "", strMailDbname
nlWkspace.OPENDATABASE "", strMailDbname
' Création d'un nouveau mémo
Set nlDoc = nlWkspace.COMPOSEDOCUMENT("", strMailDbname, "Memo")
' Ecriture des différents champs du mémo
nlDoc.INSERTTEXT (Recipient)
nlDoc.FIELDSETTEXT "Subject", Subject
nlDoc.FIELDSETTEXT "Body", Memotext
nlDoc.Refresh
' Ne pas oublier de détruire les objets
' Set nlDoc = Nothing
' Set nlDb = Nothing
' Set nlWkspace = Nothing
End Sub
Golog
Messages postés224Date d'inscriptionjeudi 31 janvier 2002StatutMembreDernière intervention22 décembre 2009 18 déc. 2004 à 13:37
Joli , tres bien commenté ! 10/10
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 17 déc. 2004 à 19:07
Salut Drouzig
(bizarre ce 10 sans commentaire ... bref)
Puisque tu as l'air de connaitre Lotus Notes (LN), cette petite question :
Je cherche un moyen d'ouvrir la messagerie LN comme si je voulais préparer un nouveau message, mais sans l'envoyer, juste qu'il ouvre un nouveau mémo avec les paramètres que je lui passe : Destinataire et objet.
Saurais-tu comment faire, car excepté la commande Send, je n'ai rien trouvé d'autre ?
4 déc. 2006 à 15:50
je cherche a envoyer des mails avec une piece jointe a partir d'acces dans lotus, j'ai reussi a faire pour que mon etat je mette en piece jointe, pour mettre mes destinaitaire, mais aujourd'hui on me demande que le message qui est toujours le meme pour tous les mails cree(insere directement dans le module) soit mis en page, et je n'arrive pas a trouver une aide concluente la dessus! help!
merci
4 juil. 2006 à 16:55
Merci !
14 avril 2005 à 00:22
21 janv. 2005 à 15:24
21 janv. 2005 à 09:48
peut-être as-tu déjà trouvé la solution, c'est pas très complexe : au lieu de passer une simple chaîne de caractères pour le destinataire à notre fonction d'envoi de mail, on va lui passer un tableau.
L'en-tête de la fonction devient ainsi :
Public Sub SendNotesMail(Recipient() As Variant, SaveIt As Boolean, Optional Subject As String, Optional BodyText As String)
...
End Sub
Et dans ta partie de code qui appelle cette fonction, il te faudra définir ton tableau de destinataires :
Dim tabDestinataire(10) as Variant ' taille arbitraire, ça se change dynamiquement au besoin
tabDestinataire(0) = "adresse1"
...
tabDestinataire(9) = "adresse9"
Good luck !
Drouzig Chat
20 janv. 2005 à 22:43
Un petit problème avec cette source... Elle ne fonctionnne pour moi que si dans les destinataires du mail je ne mets qu'une seule entrée.
Lorsque que j'en mets plusieurs, séparées par ", " comme lorsque je tape mon mail, j'ai une erreur me disant que lotus ne parvient pas à trouver le destinataire dans le carnet d'adresse...
Donc la question : comment rentrer plusieurs noms d'affiler ?
28 déc. 2004 à 11:39
20 déc. 2004 à 12:39
Voilà de nouveaux horizons pour moi ! Cool, je connaissait pas le ComposeDocument : je m'en va essayer ça dès que je pourrais.
20 déc. 2004 à 10:59
si j'ai bien compris ce que tu cherches à faire, la fonction suivante devrait t'aider. Malheureusement, si ta base de mails est protégée par mot de passe, celui-ci te sera demandé pendant l'exécution, je n'ai pas creusé plus que ça, je pense qu'on doit pouvoir régler ce pb de password popup...
Drouzig Chat
Private Sub PrepareNotesMemo(ByVal Recipient As String, ByVal Subject As String, ByVal Memotext As String)
' L'objet client Notes
Dim nlWkspace As Object
' L'objet NotesDocument
Dim nlDoc As Object
Dim strMailDbname As String
' Chemin absolu obligatoirement
strMailDbname = "U:\Lotus\Notes\Data\drouzigchat.nsf"
' Ouverture du client Lotus Notes
Set nlWkspace = CreateObject("Notes.NotesUIWorkspace")
' Ouverture de la base de courrier
' Demande le mot de passe de la base le cas échéant
nlWkspace.ADDDATABASE "", strMailDbname
nlWkspace.OPENDATABASE "", strMailDbname
' Création d'un nouveau mémo
Set nlDoc = nlWkspace.COMPOSEDOCUMENT("", strMailDbname, "Memo")
' Ecriture des différents champs du mémo
nlDoc.INSERTTEXT (Recipient)
nlDoc.FIELDSETTEXT "Subject", Subject
nlDoc.FIELDSETTEXT "Body", Memotext
nlDoc.Refresh
' Ne pas oublier de détruire les objets
' Set nlDoc = Nothing
' Set nlDb = Nothing
' Set nlWkspace = Nothing
End Sub
18 déc. 2004 à 13:37
17 déc. 2004 à 19:07
(bizarre ce 10 sans commentaire ... bref)
Puisque tu as l'air de connaitre Lotus Notes (LN), cette petite question :
Je cherche un moyen d'ouvrir la messagerie LN comme si je voulais préparer un nouveau message, mais sans l'envoyer, juste qu'il ouvre un nouveau mémo avec les paramètres que je lui passe : Destinataire et objet.
Saurais-tu comment faire, car excepté la commande Send, je n'ai rien trouvé d'autre ?