Contenu récent par brunounours

Re : Charger une ComboBox avec des valeurs dépendants d'OptionBox Une solution que j'ai trouvé. Merci

Bonjour, Je souhaiterai charger une ComboBox en utilisant un filtre par l'intermédiaire d'OptionBox. En réalité, dans ma feuille Excel "Table" j'ai en colonne A le type de profilé et en colonne B le nom du profilé j'ai un certain nombre de type de profilés: IPE, HEA,UPN... Dans mon...

Re : Chaine de caractère pour Email en fonction de la valeur d'une Liste Je travail sur Lotus notes et la virgule marche! Ceci dit, libre à chacun de l'adapter à son cas :-D ++

Re : Chaine de caractère pour Email en fonction de la valeur d'une Liste La liste change et les destinataires doivent s'adapter automatiquement. Voici ce aue j'ai trouvé et qui marche: Private Sub UserForm_Click() Dim TheCell As Range Dim iLigne As Integer Dim ListeMail As String 'Il...

Re : Chaine de caractère pour Email en fonction de la valeur d'une Liste Dans l'exemple de l'image, j'ai dans la Listbox2 les type AE: CAC, AVG et PAC donc je souhaiterai avoir: ListedeMail = "DupP@xxx.com, RichB@yyy.com, TotT@zzz.com

Bonjour le forum. Voici mon problème, j'espère que vous pourrez m'aider. Je souhaite établir un code qui renvoie une chaine de caractère permettant d'envoyer un mail à plusieurs personnes. Vous trouverez une image en pièce jointe pour mieux visualiser ce qui me donne du fil a retordre...

Re : Adaptation code pour envoi d'un message avec Lotus Note 6.5 Voici mon code final qui je pense adapté correctement pourra servir à d'autres personnes. '---------- API ----------- 'pour faire passer au premier plan Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As...

Re : Affichage de Mail avant envoi. Je viens de trouver une solution :-) En créant une expression regroupant mes elements de list box :-) For i = 0 To UserFormEMail.ListBox2.ListCount - 1 Textei = UserFormEMail.ListBox2.List(i) & " --- " & UserFormEMail.ListBox3.List(i) & Chr(10) &...

Re : Affichage de Mail avant envoi. Bonjour Dull. Merci pour ta réponse! C'est le premier pas que je fais depuis hier matin!! Tout marche excepté la ListBox qui ne s'affiche pas. Je peux afficher un element de la liste en tapant UserFormEMail.ListBox2.List(1) as tu une solution...

Re : Affichage de Mail avant envoi. Merci d'essayer de m'aider! J'ai déjà essayer tout ca mais rien n'y fait :-( Je ne sais pas ce que représente le FALSE mais les syntaxes: MailDoc.send (True) ou MailDoc.send (False) ou maildoc.send 0, sSendTo Envoi le mail directement sans...

Re : Affichage de Mail avant envoi. Bonjour le Forum, Petite relance car je suis dans une impasse :-( N'importe quelles idées sont les bienvenues! Je suis prêt á tout tester! C'est surement une syntaxe que je ne connais pas! Merci

Re : Affichage de Mail avant envoi. Autre variante pour résoudre ce problème: Voila j'ai un autre code qui lui ouvre bien le message dans Lotus note avant de l'envoyer. Cette solution me conviendrai excepté le corps du message que je n'arrive pas à mettre sous forme: Bientot 8 heure a...

Bonjour, J'aimerai modifier le code suivant: Private Sub CommandButton1_Click() 'Set up the objects required for Automation into lotus notes Dim Maildb As Object 'The mail database Dim UserName As String 'The current users notes name Dim MailDbName As String 'THe current users...

Re : Adaptation code pour envoi d'un message avec Lotus Note 6.5 Bonjour le forum. Bon lundi a tous! Petite relance concerant mon problème :-D Merci, Bruno

Bonjour, Je souhaiterai envoyer un message utilisant une macro à travers LotusNote: Voila mon point de départ: Access - Les Sources j'ai créé un bouton pour lancer la procedure qui possède ce code: Private Sub CommandButton1_Click() SendNotesMail Me!txtSubject...