IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

Macro pour insérer du texte dans un nouveau message


Sujet :

VBA Outlook

  1. #1
    Rédacteur

    Avatar de arnolem
    Profil pro
    Inscrit en
    Février 2005
    Messages
    2 856
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Février 2005
    Messages : 2 856
    Points : 6 114
    Points
    6 114
    Par défaut Macro pour insérer du texte dans un nouveau message
    Bonjour,

    Je souhaiterais faire les choses suivantes.

    • Ajouter un bouton a mon formulaire "nouveau message"
    • Ce formulaire appel un macro
    • La macro va lire un fichier texte en local et l'insère dans le body du mail


    Pouvez vous m'aiguiller sur l'une des 3 étapes ? merci par avance

  2. #2
    Membre habitué
    Inscrit en
    Août 2007
    Messages
    139
    Détails du profil
    Informations forums :
    Inscription : Août 2007
    Messages : 139
    Points : 178
    Points
    178
    Par défaut
    Bonjour,

    1. ton bouton doit forcément être dans le formulaire?

    2. La macro doit copier le tout contenu du fichier txt pour le copier dans l'objet ?

    http://warin.developpez.com/access/fichiers/#LI-D-3-d


    A bientôt,

  3. #3
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Bonsoir,
    ton body est en texte brut donc ? et ca doit être inséré à un endroit précis ou en remplacement de ce qui poourait exister ?

  4. #4
    Rédacteur

    Avatar de arnolem
    Profil pro
    Inscrit en
    Février 2005
    Messages
    2 856
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Février 2005
    Messages : 2 856
    Points : 6 114
    Points
    6 114
    Par défaut
    Pour le bouton, je m'en fiche. Je veux juste qu'a chaque nouveau message, je charge le fichier dans mon corp de message. Que ce soit automatique ou avec un bouton, je m'en fiche.

  5. #5
    Membre habitué
    Inscrit en
    Août 2007
    Messages
    139
    Détails du profil
    Informations forums :
    Inscription : Août 2007
    Messages : 139
    Points : 178
    Points
    178
    Par défaut
    Bonjour,

    As tu pensé à utiliser un modèle de mail ? Car ta demande semble plus correspondre à cela.

    A bientôt,

  6. #6
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut

    Ce serait mieux si tu développais un peu plus, est ce toujours le même fichier, est il toujours au même endroit ....
    cela concerne t'il tous les nouveaux mails ...etc..

  7. #7
    Rédacteur

    Avatar de arnolem
    Profil pro
    Inscrit en
    Février 2005
    Messages
    2 856
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Février 2005
    Messages : 2 856
    Points : 6 114
    Points
    6 114
    Par défaut
    Je veux pouvoir mettre une citation personnalisé dans ma signature et différente à chaque mail.
    Par exemple, mettre en signature mon nom, prénom et suivie d'un citation que j'aurais chargé d'un fichier.

  8. #8
    Membre habitué
    Inscrit en
    Août 2007
    Messages
    139
    Détails du profil
    Informations forums :
    Inscription : Août 2007
    Messages : 139
    Points : 178
    Points
    178
    Par défaut
    Bonsoir,

    Pour t'éviter de réinventer les signatures Outlook,

    Tu créais autant de signatures que de citations et pensant à garder un modèle. Ensuite tu peux les gérer, les modifier.

    Il est vrai qu'un peu de temps d'apprentissage est nécessaire car les signatures Outlook son un peu variable(surtout en HTML) mais sinon tu peux les créer avec Word ou un éditeur (txt ou html).

    Si tu as besoin d'infos, je me suis déjà bien pris les pieds avec ce type de problème (surtout si tu veux utiliser des signatures HTML).

    Penses à indiquer la version OS et Outlook que tu utilises pour des questions éventuelles.

    Je te souhaite du courage mais tu verras c que du bonheur une fois que tu as compris les finesses.

    Bonne nuit

  9. #9
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut

    Voici un exemple c'est un fichier dictons.vbs dont je ne connais plus l'auteur à mettre à l'origine dans le menu démarrage, ou dans le gestionnaire de taches pour qu'il se déclenche tous les jours,
    Plusieurs solutions s'offrent à toi :
    - Tu veux la même citation toute le journée, tu peux modifier le fichier signature (C:\Documents and Settings\ton PROFIL\Application Data\Microsoft\Signatures) ou plutots les fichiers (1 rtf , 1 txt et 1 html)
    tous les jours par un script ou un fichier .cmd avec une fonction aléatoire.
    - Tu veux que ce soit à chaque mail , incorpore le code à ton formulaire.
    dans l'événement Item_Open

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Function Item_Open()
    msgbox "youpie"
    End Function
    - Si tu veux choisir le fichier ou la ligne c'est encore autre chose
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
    211
    212
    213
    214
    215
    216
    217
    218
    219
    220
    221
    222
    223
    224
    225
    226
    227
    228
    229
    230
    231
    232
    233
    234
    235
    236
    237
    238
    239
    240
    241
    242
    243
    244
    245
    246
    247
    248
    249
    250
    251
    252
    253
    254
    255
    256
    257
    258
    259
    260
    261
    262
    263
    264
    265
    266
    267
    268
    269
    270
    271
    272
    273
    274
    275
    276
    277
    278
    279
    280
    281
    282
    283
    284
    285
    286
    287
    288
    289
    290
    291
    292
    293
    294
    295
    296
    297
    298
    299
    300
    301
    302
    303
    304
    305
    306
    307
    308
    309
    310
    311
    312
    313
    314
    315
    316
    317
    318
    319
    320
    321
    322
    323
    324
    325
    326
    327
    328
    329
    330
    331
    332
    333
    334
    335
    336
    337
    338
    339
    340
    341
    342
    343
    344
    345
    346
    347
    348
    349
    350
    351
    352
    353
    354
    355
    356
    357
    358
    359
    360
    361
    362
    363
    364
    365
    366
    367
    368
    369
    370
    371
    372
    373
    374
    375
    376
    377
    378
    379
    380
    381
    382
    383
    384
    385
    386
    387
    388
    389
    390
    391
    392
    393
    394
    395
    396
    397
    398
    399
    400
    401
    402
    403
    404
    405
    406
    407
    408
    409
    410
    411
    412
    413
    414
    415
    416
    417
    418
     
    'dictons.vbs
    'vérifier si le fichier est dans le rép démarrage 
    Set scrHst = CreateObject("WScript.Shell") 
    adresse = scrHst.SpecialFolders("StartUp") & "\" & Wscript.Scriptname
    Set scrHst = Nothing
     
    'sinon, l'y enregistrer
    Set fs = CreateObject("Scripting.FileSystemObject") 
    if Wscript.ScriptFullName <> adresse then
    fs.copyfile Wscript.ScriptFullName,adresse
    end if
     
    'aujourd'hui en texte
    mois=array("janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre")
    aujourdhui=day(date)
    if aujourdhui=1 then aujourdhui="1er"
    aujourdhui=aujourdhui & " " & mois(month(date)-1)
     
    'ouverture du fichier en lecture pour récupérer le dicton
    Set fich = fs.OpenTextFile(Wscript.ScriptFullName, 1, False) 
     
    'recherche du début des dictons
    do while txt<>"'##########"
    txt=fich.readline
    loop
     
    'recherche de la ligne correspondant à aujourd'hui
    num=1
    Do While num<31*(month(date)-1)+day(date)
    fich.skipline
    num=num+1
    Loop
     
    'affichage du message
    txt = replace(fich.readline,"#",chr(10))
    txt=right(txt,len(txt)-1)
    if txt<>"'" then msgbox txt,,"le dicton du " & aujourdhui
     
    fich.Close 
    Set fich = Nothing 
    Set fs = Nothing 
    Wscript.quit
     
     
    '##########
    'S'il pleut la nuit de la nouvelle année,#  Le laboureur n'aura guère de denrées#    Et l'on aura pas de bon vin#      Pour noyer son pauvre chagrin.
    'Saint-Clair porte quarantaine
    'Sainte Geneviève ne sort point ##si saint Marceau ne la rejoint.
    'Le jour de la Saint Odilon #Souvent n'amène rien de bon.
    'A la saint Siméon,#La neige et les tisons
    'Si le soir des Rois#  Beaucoup d'étoiles tu vois,#    Auras sécheresse en été#      Et beaucoup d'oeufs au poulailler.
    'Saint Raymond, Sainte Mélanie.##S'il gèle à la saint Raymond, #L'hiver est encore long.
    'Temps de saint Lucien,#Temps de chien.##Au jour de Sainte Gudule,#Le jour croît, mais le froid ne recule.
    'Saint Adrien, Sainte Alix, Saint Julien.##Pour Saint Adrien, le froid nous revient.
    'Saint Guillaume
    'Dans la nuit du 11 au 12, regardez de quel côté le vent souffle :# S'il vient de l'Orient, il y aura mortalité de bestiaux ;#  S'il vient du midi, il y aura des malades ;#   S'il vient de l'Occident, c'est signe de guerre ;#    S'il vient du Septentrion, les champs sont menacés de stérilité.###...moralité, il vaut mieux rester au lit !
    '    Sainte tatiana##Les douze premiers jours de janvier# Indiquent le temps qu'iul fera#  Les douze mois de l'année.
    'Saint Arcade, Saint Hilaire, Sainte Yvette.##Les jours croissent à la Saint Hilaire#De quelques pas de bergère.
    'Le soleil pour Saint-Hilarion,#Il faudra force tisons.
    'Saint Maur, Saint Rémi.##A la Saint Maur,#Ne t'étonne pas si le vent souffle fort.
    'Saint Marcel, Sainte Nina##Soleil de Sainte Nina,#Pour un long hiver rentre ton bois.
    '  Saint Antoine, Sainte Roseline.##Les jours à la Saint Antoine,#Croissent comme la barbe d'un moine.##Pour la Saint Antoine, #Il fait froid même dans l'huile.
    'A Saint Pierre, coq chantant#Est présage de mauvais temps.
    'Neige de la Sainte-Prisca#Va apporter une belle année que voilà
    'A la Saint Sébastien,#L'hiver s'en va ou revient.
    'Jour de Sainte Agnès,#Jamais trop de froid ne laisse.
    'A la saint Vincent, #l'hiver se reprend ou perd sa dent.##Pour la Saint-Enérance,#Les jours rallongent d'une aune de gance.
    'S'il géle à la Saint-Raymond,#L'hiver est encore plus long.##Saint-Barnard ensoleillé#Rend le vigneron gai.
    'Saint François, Saint Priest##Soleil de Saint-Priest,#Abondance de Millet.
    'A la saint Paul s'entrebattent les vents;#Celui qui l'emportera dominera l'an.
    'Saint-Polycarpe nous écharpe.
    'Beau temps à la Saint Julien#Promet abondance de biens.
    'Saint-Thomas, Saint-Charlemagne##Saint-Charlemagne,#Février en armes !
    'S'il pleut à la Saint Sulpice,#C'est tous les jours comme vache qui pisse.
    'Prends garde à la Sainte Martine,#Car, souvent, l'hiver se mutine !##A la Saint-Hippolite,#Bien souvent l'hiver nous quitte.
    'Sainte Marcelle##Compte bien fin janvier#Que tu as mangé la moitié de ton grenier.
    'Février trop doux, #Printemps en courroux.##A la Saint-Ignace,#L'eau est de glace.
    'Soleil le matin de la chandeleur, quarante jours à la tanière.##A la chandeleur, l'hiver passe ou prend vigueur.
    'A partir de la Saint Blaise, #L'hiver redouble ou s'apaise
    'Sainte-Véronique, Saint-Isidore##Prenez garde au lendemain#  De Saint Blaise, s'il esr serein,#    Car cela présage une année#      Toute fertile et fortunée.
    'A la Sainte Agathe,#Les jours croissent du saut d'une bocatte.
    'A la Sainte Dorothée,#La plus forte gelée.
    'Saint-Romuald##Il n'est de février si mauvais et si méchant#Qu'il ne nous donne huit jours de printemps.
    'A la Sainte Jacqueline,#Froid et bruine.##Eté de la Saint-Jean,#Quelques jours cléments.
    'A la Sainte Apolline,#  Présage certain,#    L'hiver s'achemine#      Ou touche à sa fin.
    'Bise et grand vent à la Saint-Amand#Font mal au froment.
    'Séverin et ses coquins#Font tout geler sur leur chemin.
    'Sainte Eulalie avec la pluie,#Quarante jours reste dans ton lit !
    'De Sainte Béatrice la nuée#Assure six semaines mouillées.
    'Souvent à la Saint Valentin,#La roue gèle avant le moulin.
    'Les cerises, c'est Saint Claude#Qui les baille ou les ôte.
    'A la Sainte-Julienne,# Faut toujours que le soleil vienne,#  S'il luit un peu, bon pour les bœufs,#   S'il luit prou, c'est un bon août.
    'Saint Alexis##Si février laisse les fossés pleins,#Les greniers seront pleins.
    'A la Sainte Bernadette,#Souvent le soleil est de la fête.##A la saint Alexandre,#Finies les cendres.
    'A  partir de la Saint-Siméon,#Tu peux semer tes melons.
    'Souvent à la Sainte Aimée,#La campagne est enneigée.##Taillis pluvieux à la Saint Sylvain#Fait tout l'an incertain.
    'A la Saint Pierre Damien,#L'hiver reprend ou s'éteint.##Il est trop tard à la Saint Pépin#Pour planter les arbres à pépin.
    'A la Sainte Isabelle,#  Si l'aurore est belle,#    Et s'il fait soleil au matin,#      C'est du bon pour tous les grains.
    'A la chaire du bon Saint Pierre,#L'hiver s'en va, s'il ne se resserre.##A la Saint Florent,#Il est bien de semer le froment#Mais sans perdre de temps.##Souvent quand Saint Lazare appelle le froid,#Il n'en reste pas.
    'A la saint Mathias, #C'est souvent la fin des glaces.
    'Saint Roméo##Février entre tous les mois,#Le plus court et le moins courtois.
    'Saint Nestor##Quand février commence en lion,#il finit en mouton.
    'A la Sainte Honorine,#Bourgeonne l'aubépine.
    'Saint Romain##Soleil le dernier jour de février#Met des fleurs au pommier.
    'Saint Auguste##L'année bissextile, soyez fin,#Semez du chanvre au lieu du lin.
    '
    '
    'Mars haleux, #Fait bon marier la fille du laboureux.##S'il pleut à la Saint Aubin,#L'eau sera plus chère que le vin.
    'Saint Charles, Saint Jacob.
    'A la Sainte Cunégonde,#La terre redevient féconde.
    'Souvent à Saint Adrien,#Gelée ne gèle que les mains.
    'De Casimir la douceur#Fait peur aux jardiniers et aux laboureurs.
    'Au jour de Sainte Colette#Commence à chanter l'alouette.
    'De Saint Thomas à la Sainte Mathilde,#Le temps est à la neige souvent.##A la sainte Véronique,#Le soleil à l'hiver fait la nique.
    'De Saint-Jean-de-Dieu à Saint-Grégoire,#Vent et giboulées font notre désespoir.
    'Semé à la Sainte-Françoise,#Ton grain aura du poids.
    'S'il gèle aux Quarante Martyrs,#Il gèlera encore quarante jours.
    'Bon rédeux, à Saint-Euloge,#Voit les jeunes lapins à l'auge.
    'A la Saint Grégoire,#Tailler sa vigne, c'est de l'or.##A la Saint Marius,#On voit clair à l'Angélus.
    'A la Sainte-Euphrasie,#Pointe la fraise.
    'Pluie de Sainte-Mathilde#N'est jamais trop.
    'Sait Zacharie##A mi-mars,#Le coucou est dans l'épinard.
    'Sainte Bénédicte
    'Saint Patrice, Saint Patrick, Sainte Gertrude##Dème tes pois à la Saint Patrick,#Tu en auras à ton caprice.
    'A Saint Narcisse les mouches,#Aux pêcheurs les touches.
    'Le chaud à la Saint Joseph,#L'été sera bref.
    '
    'Une hirondelle ne fait pas le printemps.
    'Sainte Léa##Fleur marsière#Ne tient guère.
    'S'il pleut le jour de Saint Victorien,#Tu peux sûrement compter sur du bon foin.
    'Sainte Catherine, Saint Gabriel
    'Annonciation mouillée,#Crains les giboulées !
    'Neige en mars#vaut blé en sac.
    'Mars venteux,#Vergers pommeux.
    'A Saint Gontran, si la température est belle,#Arrivent les premières hirondelles.
    'Quand mars bien mouillé sera,#Beaucoup de fruits cueilleras.
    'Souvent, la Saint Amédée#Est de mars la plus belle journée.
    'A la Saint Benjamin,#Le mauvais temps prend fin.
    'Le premier avril, #On fait courir les sots.
    'Sainte Sandrine.
    'Saint Richard.
    'En avril,#Ne te découvre pas d'un fil !
    'Sainte Irène
    'Au jour de la Sainte Prudence,#S'il pleut, s'il vente,#Peu après le mouton danse.
    'Au sept d'avril, aporès le coucou,#C'est le rossignol qui chante.
    'Sainte Julie.
    'A la sainte Marie, #Toutes les aubépines sont fleuries.
    'Quand arrive la Saint Fulbert,#Dans la campagne tout est vert.
    'S'il gèle à la Saint Stanislas,#On aura deux jours de glace.
    'A la Saint Jules, mauvais temps #N'est pas installé pour longtemps.
    'A la Sainte Clémence,#Les moutons prennent du ton.
    'Saint Valérien, Saint Maxime.##Bourgeons de Saint Valérien,#Le fruit n'est pas loin.
    '
    'Gelée de Saint Fructueux#Rend le vigneron malheureux.
    'Beau temps à la Saint Anicet#Est l'annonce d'un bel été.
    'Saint Parfait
    'Sainte Emma.
    'Sainte Odette.
    'Tel temps à la Saint Anselme,#Tel temps pendant une semaine.
    'Saint Alexandre, Sainte Opportune##Pluie le jour de Sainte Opportune,#Ni cerises, ni prunes.
    'Quand il pleut le jour de Saint Georges,#Sur cent cerises, on en a quatorze.
    'A la saint Gaston,#Trie la semence, enlève le bourgeon.
    'Quand Saint Marc n'est pas beau, #Pas de fruits à noyau.
    'Saint Clet#Ferme la porte aux derniers pois.
    '
    'Sainte Valérie.
    'Avril a trente jours.#  Si trente et un il avait,#    Personne ne s'en plaindrait.
    'La pluie le jour de Saint Robert, #De bon vin remplira ton verre.
    '
    'A la veille de Saint Jacques#  Si tu as le soleil de Pâques,#    Compte que, pour la moisson, #      Le blé sera dru et bon.
    'En Mai, #Fait ce qui te plaît.
    'Qui n'a pas semé à la sainte Croix, #Au lieu d'un grain en mettra trois.
    'Regarde bien, si tu me crois,#Le lendemain de Sainte Croix#Si nous avons le temps serein.##Car on dit, comme un fait certain,#Que quand cela vient, Dieu nous donne#L'année premièrement bonne.
    'Le temps de Sainte Judith #Va durer jusqu'au dix.
    'S'il fait beau à la petite Saint Jean, #Année fructueuse en froment.
    'A la sainte Gisèle, #Prends garde s'il gèle.
    'A sainte Félicie, #Tous les lilas sont fleuris.
    'Rosée de mai,#Fait tout beau ou tout laid.
    'Sainte Solange
    'Gare qu'il ne gèle#A la saint Estelle.
    '
    'A la Saint servais, #Sème ton chanvre, ou bien ne le sème jamais.
    'En plantant tes fèves à la Saint Boniface, #Tu auras la bonne place.
    'A la Sainte Denise #S'arrête la bise.
    'A la Saint Honoré,#  S'il fait gelée,#    Le vin diminue de moitié.
    'S'il tonne au jour de Saint Pascal, #Sans grèle, ce n'est pas un mal.
    'Soleil à la Saint Eric #Promet du vin plein les barriques.##Bon fermier, à Sainte Juliette,#Doit vendre ses poulettes.##A la saint Félix,#Tous les lilas sont fleuris.
    'A la Saint-Yves,#Le beau temps#Ote au laboureur ses dents.
    'S'il pleut à la Saint Bernardin,#Tu peux dire adieu à ton vin.
    'Si elle gèle, Sainte Quitère#Emporte tout dans sa devantière.
    'Beau temps de Saint Emile#Donne du fruit à la folie.
    'A la saint Didier, soleil orgueilleux#Nous annonce un été joyeux.
    'Après Sainte Angèle, #Le jardinier ne craint plus le gel.
    'Soleil à la Saint Urbain #Présage une année de vin.
    'Quand il pleut à la Saint-Philippe,#Le pauvre n'a pas besoin du riche.
    'A la Saint-Hildevert,#Est mort tout arbre qui n'est pas vert.
    'A la Saint Cyrille,#Une fleur blanche pour mille.##Tant que mai n'est pas au vingt-huit,#L'hiver n'est pas tout à fait cuit.
    'A Saint Gérard,#La récolte ets encore au hasard.
    'Lorsque mai est trop jardinier,#Cela ne remplit pas le grenier.
    'S'il pleut à Saint Pétronille, #  Les raisins deviennent grappilles#    Ou tombent en guenilles.
    'Au mois de juin, quand les ânes secouent l'oreille,#C'est signe qu'il pleuvra à merveille.
    'Le feu de Saint-Elme allant aux mâts,#Indique le vent grands ébats.
    'A Sainte Clotilde, de fleur en buisson,#Abeille butine à foison.
    'A Sainte Enna,#Tes fourrages en bas.
    'Saint Igor##Prépare autant de tonneaux#Qu'en juin tu compteras de beaux jours.
    'Saint Norbert, Saint Claude##La Saint Claude#Baille les cerises ou les ôte.
    'Saint Gilbert.
    'S'il pleut à la Saint Médard, #C'est du beau temps pour les canards.
    'A Saint Félicien,#Mouche à miel n'a plus de bien.
    'A la saint Landry, s'il tonne,#Restera vide la tonne.
    'A la Saint Barnabé, #Les jours croissent d'un saut de baudet.
    'Qui nait à la Saint Basilide#Ne sera jamais invalide.
    'A la Saint Antoine de Padoue,#Toujours du temps doux.
    'A Saint Rufin,#Cerises à plein jardin.
    'Aujourd'hui, Saint Bernard, Saint Guy, Saint Modeste et Sainte Germaine.##Pluie de Saint Guy,#C'est tout l'an qui rit.
    'Si le jour de la Saint Fargeau#  La lune se fait dans l'eau,#    Le reste du mois est beau.
    'Soleil à la Saint Hervé #Fait présager d'un bel été.
    'Pluie de la Saint Florentin #Dure jusqu'au lendemain.
    'Quand il pleut à la Saint Gervais,#Il pleut quarante jours après.
    'Pluie d'orage à la Saint Sylvère, #C'est beaucoup de vin dans le verre.
    'Qui dit du mal de l'été, #Du Bon Dieu sera rejeté.
    'Saint Alban##Qui pêche en juin,#Pêche fretin.
    'Sainte Aure
    'La nuit de la Saint Jean #Est la plus courte de l'an.
    'S'il fait beau à la Saint Guillaume,#Auras du blé plus que de chaume.
    'Saint Anthelme
    'Saint Fernand##S'il pleut en juin,#Le jardinier ronge son poing.
    'Le jour de la Saint Irénée, #C'est l'un des plus beaux de l'année.##Au jour de Saint Germain,#Travaille tôt ou tard.
    'Saint Pierre et Saint Paul, Saint Eloi
    'Saint Martial, Saint Thibault##Lorsqu'en juin on voit sa fin, #Saint Martial souvent lave le chemin.
    '
    'A la saint Thierry,#Aux champs, jour et nuit.
    'S'il pleut à la Visitation, #Pluie à discrétion.
    'Saint Thomas, Saint Anatole##Saint Anatole ensoleillé#De blé emplit le grenier.
    'Saint Florent, Sainte Berthe
    'Saint Antoine, Sainte Zoé
    'A Sainte Colombe,#Le ramier quitte sa colombe.
    'Quand à Saint Raoul, le soleil brille,#C'est le moissonneur qui grille
    'Saint Thibaut, Sainte Virginie, Saint Edgard##A la Saint Thibaut,#Ne t'étonne pas si le temps est chaud.
    'Après Saint Procule #Arrive la canicule.
    'Le jour de la Sainte Félicité#  Se voit venir avec gaieté.#    Car, on l'a toujours remarqué,#      C'est le plus beau jour de l'été.
    '
    'Saint Olivier.
    'Saint Henri, Saint Joël, Saint Hippolyte, Saint Eugène##C'est vers la Saint Hippolyte#Que le raisin change plus vite.
    '
    'Quand reviendra la Saint Henri,#Tu planteras ton céleri.
    '
    'A la Saint Alexis,#Foin occis.
    'Saint Frédéric, Saint Arnoul
    'A la fête de Saint Vincent, #Le vin monte au sarment.
    'A la Sainte Marguerite, pluie#  Jamais au paysan ne sourit.#    Mais pluie à Saint Anne,#      Pour lui, c'est la manne.
    'Quand il pleut le jour de Saint Victor,#La récolte n'est pas d'or.
    'S'il pleut à la Sainte Madeleine, #Il pleut durant six semaines.
    'Nuages de la Sainte Brigitte, #Par le soleil sont chassés vite.
    'A la Sainte Christine,#Coupe le blé, plie l'échine.
    'Si Saint Jacques est serein,#L'hiver sera dur et chagrin.
    'S'il pleut pour la Sainte Anne, #Il pleut un mois et une semane.
    'A la Sainte Nathalie,#Temps joli.
    'A la Saint Nazaire, #La pluie ne dure guère.
    'Mauvais temps le jour de Sainte Marthe n'est rien, #Car il faut qu'il parte.
    'Pour la Sainte Julie,#Toujours journée jolie
    'S'il pleut à la Saint Germain,#C'est comme s'il pleuvait du vin.
    'S'il pleut le jour de la Saint Pierre,#La vinée se réduit d'un tiers.
    'En Août jours de temps sombre, #En janvier des pluies sans nombre.
    'Quiconque en août s'endormira#En janvier s'en repentira.
    'A la Saint Dominique,#Te plains pas si le soleil pique.
    'A la saint-Abel,#Faites vos confitures de mirabelles.
    'Saint Dominique
    'Le mois d'août est toujours chaud,#Quand le premier de l'An est beau.
    'A Saint Justin,#Est à graines le plantain.
    'Saint Amour##Mois d'Août pluvieux,#Rend le cep vineux.
    'L'alouette à la Saint Laurent,#  Pour voyager se met en rang.#    L'hirondelle, à la Saint Matthieu,#      Se prépare à nous dire adieu.
    'Toujours pour la Sainte Claire,#Journée chaude et claire.
    'S'il pleut à la Sainte Clarisse,#C'est souvent comme vache qui pisse.
    'S'il pleut le jour de Sainte Radegonde,#Misère abonde sur le monde.
    'A la Saint Eusèbe,#Un temps sec grossit la gerbe.
    'Pluie à l'Assomption,#Huit jours de mouillon.
    'A la mi-août,#L'hiver est au bout.
    'Quand août est bon,#Abondance à la maison
    'A la Sainte Hélène,#  La noix est pleine,#    Et le cerneau#      Se met à l'eau
    '
    'Pluie de la Saint Bernard#Fait déborder la marre.
    'Pluie violente à la Saint Christophe#Peut mener à la catastrophe.
    'Pluie à la Saint Fabrice#Ne rend pas le paysan riche.
    'A la Sainte Rose,#Pour le travailleur, pas de pause.
    'A la Saint Barthélémy,#La grenouille sort de son nid.
    'Si la lune de Saint Louis#Se fait en beau, sois réjoui.
    'A la Saint Privat,#pour les labours, donne du jarret à ton cheval.
    'A la Sainte Monique,#Ne te plains pas si le soleil pique.
    'A la Saint Augustin,#Les orages sont proches de leur fin.
    'Pluie à la Sainte Sabine#Est une grâce divine.
    'A la Saint Fiacre, soleil ardent,#Pour huit jours encore, du beau temps.
    'Saint Paulin##Temps trop beau en août,#Annonce un hiver en courroux.
    'S'il fait beau à la Saint Gilles,#Cela durera jusqu'à la Saint Michel.##Saint Gilles et Saint Leu#Guérissent de la peu.
    'Orages de septembre,#Neiges de décembre.
    'Pluie du jour de Saint Grégoire,#Autant de vin de plus à boire.
    'Sainte Rosalie##Septembre se nomme#Le mai de l'Automne.
    'En septembre,#Le fainéant peut aller se pendre.
    'Saint Bertrand
    'A la Sainte Reine,#Sème tes graines.
    'Le temps de la Nativité#Dure tout un mois sans variété.
    'Saint Alain
    'A la Saint Inès,#Travaille sans cesse !
    'Tu peux semer sans crainte,#Quand arrive la Saint Hyacinthe.
    'A la Saint Aubierge#Vole le fil de la Vierge.
    'Saint Aimé##Septembre humide,#Pas de tonneaux vides.
    'A la Sainte Croix, #Cueille tes pommes et gaule tes noix.
    'La rosée de Saint Albin#Est dit-on, rosée de vin.
    'Sainte Edith##Orages en septembre,#Noël en Décembre.
    'La pluie au jour de Saint Lambert,#Il y en a pour un novenaire.
    'Froid de la Saint Nadège#Annonce pour bientôt la neige.
    'Qui sème à la Saint Janvier,#De l'an récolte le premier.
    'Gelée blanche pour Saint-Eustache#Grossit le raisin qui tache.
    'Automne en fleurs,#Hiver plein de rigueurs.##Quand vient Saint Matthieu,#L'été, adieu.
    'Séme des pois à la Saint Maurice,#Tu en auras à ton caprice !
    'A la saint Lin,#Fait rouir le lin.
    'A la Saint Gérard, les noix#Sont mûres pour toi et pour moi.
    'A la Saint Firmin,#L'hiver est en chemin.
    'A Sainte Justine, #Toute fleur s'incline.
    'Priez Saint Côme et Saint Damien,#Vous vous porterez toujours bien !
    'Forte chaleur en septembre,#A pluie d'octobre, il faut s'attendre.
    'A la Saint Michel,#  Regarde le ciel.#    Si l'ange se baigne l'aile,#      Il pleut jusqu'à Noël.
    'Saint Jerôme
    '
    'A la Saint Rémy,#La grande chaleur, fini.
    'Octobre à moitié pluvieux#  Rend le laboureur joyeux,#    Mais le vendangeur soucieux#      Met de côté son vin vieux.
    'Saint Gérard##Si octobre est trop chaud,#En février, la glace est au carreau.
    'A la Saint François,#Vient le premier froid.
    'A la Saint Placide,#Le verger est vide.##Quand arrive la Sainte Fleur,#Pour aller au verger, ce n'est plus l'heure.
    'A la Saint Bruno,#Les feuilles tombent dans le bô.
    'A la Saint Serge,#Achète des habits de serge.
    'En octobre qui ne fume rien,#Ne récolte rien.###… les autres un cancer du poumon
    'S'il fait beau à la Saint Denis,#L'hiver sera bientôt fini.
    'Saint Ghislain
    'Si la Saint Gomer arrive par temps sec,#L'hiver sera humide dès le début.
    'A la Saint Bertrand,#Double tes vêtements.
    'Souvent à la Saint Géraud,#Nous arrive trois jours de beau.
    '
    'Il faut qu'à la Sainte Eugénie,#Toute semaille soit finie.##Souvent Sainte Thérèse nous apporte un petit été,#Mais surtout, jardinier, ne va pas te déshabiller.
    'Sainte Edwige, Saint Gall.##Le vin de Saint Gall#N'est jamais un régal.
    'A Saint Auneuil,#Cueille les querneuilles.
    'A la Saint Luc, la pluie du vallon#Fait de la neige sur le mont.
    'A la Saint René,#Couvre ton nez !
    'Sainte Adeline
    'Sainte Céline, Saint Ursule##A la Saint Ursule, #Le froid recule.
    'Au jour des Saintes Maries,#Laboure avec énergie.
    'A la Saint Hyacinthe,#On peut semer sans crainte.
    'A la Saint Raphaël,#La chaleur monte au ciel.##Souvent, à la Saint Florentin,#L'hiver lisse le chemin.
    'Pour la Saint Pépin,#Sort donc ton pépin !
    'A la Saint Amand,#Sont mûrs les glands.##A Saint Evariste,#Jour de pluie, jour triste.
    'A la Saint Dimitri,#Le froid est bien pris.##A la Sainte Antoinette,#La neige s'apprête.
    'A la Sainte Simone,#Il faut avoir rentré ses pommes.
    'Octobre au coin du feu,#Fait venir le leu.
    'Si octobre s'emplit de vents,#Du froid tu pâtiras longtemps.
    'A la Saint Quentin,#La chaleur a sa fin.##Après la Saint Urbain,#Ce qui reste de la vigne ne vaut rien.
    'Autant d'heures de soleil à la Toussaint,#Autant de semaines à souffler dans tes mains.
    'Quelque temps qu'il fasse en novembre,#Commence le feu dans ta chambre !
    'A la Saint Hubert, #Les oies sauvages fuient l'hiver.
    'A la Saint Charles,#Souvent, l'hiver parle.
    'Sainte Sylvie, Saint Ernest##A la Saint Ernest,#Abats les pommes qui te restent.
    'Quand en novembre tu entends la grive chanter,#Rentre à la maison pour t'abriter#Et du bois pour te chauffer.
    'Novembre chaud au début,#Froid à la fin.
    'Il pleut au saint Jour des Reliques,#  Et vente à décorner les biques;#    Mais, souvent, le grand Saint Martin,#      Pour trois jours, sèche le chemin.
    'A la Saint Mathurin, #Des fruits rouges c'est la fin.
    'A la Saint Léon,#Mets tes artichauts en monts.
    'Il y a plus d'un âne qui s'appelle Martin.###Si le vent du sud souffle pour la Saint Martin,#L'hiver ne sera pas coquin.
    'Saint Christian, saint Emilien
    'Saint Brice
    'A Saint Philomène,#Misère dans les garennes.
    'A la Saint Albert,#Reste bien couvert !
    'Sainte Marguerite
    'A la mi-novembre passée, #Il peut venter et neiger à souhait.
    'Journée de Sainte Aude,#Ordinairement n'est pas chaude.
    'Sainte Elisabeth nous montre#Quel bonhomme l'hiver sera.
    'A la Saint Edmond,#Le temps n'est pas bon.##A la Saint Tanguy,#Jamais vent ne languit.
    'Saint Félix et la Présentation#Amènent le froid pour de bon.
    'Pour la Sainte Cécile,#Chaque fève en fait mille.
    'Quand l'hiver vient doucement,#Il est là à la Saint Clément.
    'Sainte Flora, Sainte Flore##A la Sainte Flora,#Plus rien ne fleurira
    'Sainte Catherine,#  Toute fille veut la fêter,#    Mais point ne veut la coiffer.
    'A Sainte Delphine, #Mets ton manteau à pèlerine !
    'Si elle n'est pas là à la Saint Séverin,#La neige n'est pas loin.
    'S'il neige à la Saint Hilaire,#Il fera froid tout l'hiver.
    'Soleil fin novembre, #Noël en décembre.
    'Neige de Saint André,#Peut cent jours durer.
    '
    'Sainte Florence, Saint Eloi##Lorsque Saint Eloi#  A bien froid,#    Quatre mois dure le plus grand froid.
    'Sainte Viviane##Décembre trop beau,#Eté dans l'eau.
    'Saint François Xavier
    'A la Sainte Barbe,#Le soleil peu darde.
    '
    'Le jour de Saint Nicolas,#De décembre est le moins froid.
    'A la Saint Ambroise,#Du froid pour huit jours.
    'Notre Dame de l'Avent,#  Pluie et vent;#    Tire ton bonnet jusqu'aux dents
    'De Sainte Léocardie à Sainte Nicaise, #Les gelées naissent
    'A Sainte Julie,#Le soleil ne quitte pas son lit.
    'Tel temps à la Saint Daniel,#Même temps à Noël.
    'A Saint Constance,#Plein hiver en France.
    'Sainte Luce, Sainte Lucie, Sainte Odile##A la Sainte Luce, #Le jour croît du saut d'une puce.
    'S'il neige à la Saint Florian,#Les récoltes seront en excédent.
    'Quand il tonne hors saison,#Pluie ou neige sans raison.
    'Quand il pleut à la Sainte Alice,#C'est souvent comme une vache qui pisse.
    'Souvent à la Saint-Lazare, le froid gagne#Ou file vers la montagne.
    'Si décembre fait le tendre,#Crois-moi, l'hiver n'est pas loin,#Il est là à la Saint Gatien.
    'Décembre au pied blancs s'en vient,#An de neige est an de bien.
    'Au vingt de Noël,#Les jours rallongent d'un pas d'hirondelle.
    'Saint Thomas##Soleil d'hiver, amour de paillarde,#Tard vient et peu darde.
    'Décembre prend,#Il ne rend.
    'A Sainte Evariste,#Jour de pluie, jour triste.
    'Entre Sainte Adèle et Saint Vincent,#Les gelées ont plus de mordant.
    'Noël au balcon, Pâques aux tisons.##A la Noël ciel laiteux, #                       à la Saint Jean ciel orageux.
    'A la Saint Etienne,#Les jours croissent#D'une aiguillée de laine.
    'A la Saint Jean,#Se renouvelle l'an.
    'S'il neige à la Sainte Eléonore,#Les récoltes seront d'or.
    'Saint David
    'Saint Roger
    'Saint Silverstre,#Un jour de moins, était de reste.

  10. #10
    Rédacteur

    Avatar de arnolem
    Profil pro
    Inscrit en
    Février 2005
    Messages
    2 856
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Février 2005
    Messages : 2 856
    Points : 6 114
    Points
    6 114
    Par défaut
    Merci vraiment à tous pour vos réponses.

    Oliv-, c'est ta solution que je veux.
    Ou puis je trouver l'évenement "Item_Open"

    Moi j'ai fait "Visual Basic Editor"
    Projet1 > Microsoft Office Outlook objects > ThisoutlookSession

    Et je n'ai que
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
     
    End Sub
    Je suis en Outlook 2003

  11. #11
    Rédacteur

    Avatar de arnolem
    Profil pro
    Inscrit en
    Février 2005
    Messages
    2 856
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Février 2005
    Messages : 2 856
    Points : 6 114
    Points
    6 114
    Par défaut
    Quant je disais que je voulais un bouton dans mon formulaire, je parle du formulaire par defaut quant tu clique sur "nouveau message"

  12. #12
    Rédacteur

    Avatar de arnolem
    Profil pro
    Inscrit en
    Février 2005
    Messages
    2 856
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Février 2005
    Messages : 2 856
    Points : 6 114
    Points
    6 114
    Par défaut
    J'ai réussi à faire un nouveau formulaire et j'ai trouvé le
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Function Item_Open()
    msgbox("toto")
    End Function
    par contre, je n'arrive pas à enregistrer ce formulaire et surtout à le définir comme étant le formulaire pour les nouveaux messages.
    On ne peut pas tout simplement éditer l'existant ?

  13. #13
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Les formulaires par défaut peuvent être remplacés par les formulaires personnalisés. Pour cela, il faut utiliser le programme Microsoft Outlook Forms Administrator.


    --------------------------------------------------------------------------------

    Une fois que le nouveau formulaire est créé, il faut obtenir le nom de sa Classe du message. Depuis Outlook, allez donc sous Outils, Formulaires, Choisir un formulaire. Sélectionnez, sans l'ouvrir, votre formulaire personnalisé. Vous trouverez alors en bas à gauche la Classe du message. Celle-ci doit être relevée sur une feuille.

    Télécharger "Microsoft Outlook Forms Administrator" sur http://www.microsoft.com/downloads/d...DisplayLang=en . Un fichier formsadmin.exe est alors téléchargé.

    Exécuter formsadmin.exe et sélectionner l'emplacement où vous désirez placer les outils. Allez dans ce dossier et lancer FormSwap.exe.

    Le champ Target permet de sélectionner le formulaire par défaut que l'on souhaite remplacer. Il faut ensuite définir le formulaire à utiliser lors de la composition et lors de la lecture. Pour définir le formulaire personnalisé à utiliser, recopier le Classe du message dans les champs For composing use et For read use.

    Cliquez sur Save puis sur Export Saved Settings... . Sélectionner alors un endroit où conserver momentanément le fichier pour le remplacement automatisé de la clé de registre. Fermer la fenêtre FormSwap.exe.

    Cliquez droit sur le fichier pour le remplacement automatisé de la clé de registre et sélectionner Modifier. Modifier alors \9.0\ par la version d'Outlook que vous avez :
    \9.0\ Outlook 2000
    \10.0\ Outlook 2002
    \11.0\ Outlook 2003

    (vous pouvez déterminer le numéro en fonction de l'arborescence du regedit en allant sous HKEY_CURRENT_USER\Software\Microsoft\Office Attention, toute modification dans regedit peut entraîner de gros problèmes)

    Une fois que les modifications sont réalisées, fermer le fichier en sauvegardant les modifications apportées. Cliquez droit sur ce fichier et sélectionner Fusionner.

    Suivre ensuite les indications des boîtes de dialogues, puis allez sous Outlook dans le menu Outils, Options, Autres, Options avancées..., Formulaire personnalisés... et Gérer les formulaires. Cliquez ensuite sur Vider le cache et ressortez de toutes ces boîtes de dialogues.

    Votre formulaire personnalisé est maintenant défini comme formulaire par défaut.



    Remerciements : Merci à Cubanitoblanco d'avoir partagé cette information afin de pouvoir aider qui est dans la recherche d'une telle solution.


    Posté par angel le jeudi 02 août 2007 10:37
    Pour le code ca doit donner cela :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    Function Item_Open()
     
    'vérifier si le fichier est dans le rép démarrage 
    Set scrHst = CreateObject("WScript.Shell") 
    adresse = scrHst.SpecialFolders("StartUp") & "\dictons.vbs" '& Wscript.Scriptname
    Set scrHst = Nothing
     
    'sinon, l'y enregistrer
    Set fs = CreateObject("Scripting.FileSystemObject") 
    'if Wscript.ScriptFullName <> adresse then
    'fs.copyfile Wscript.ScriptFullName,adresse
    'end if
     
    'aujourd'hui en texte
    mois=array("janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre")
    aujourdhui=day(date)
    if aujourdhui=1 then aujourdhui="1er"
    aujourdhui=aujourdhui & " " & mois(month(date)-1)
     
    'ouverture du fichier en lecture pour récupérer le dicton
    Set fich = fs.OpenTextFile(adresse, 1, False) 
     
    'recherche du début des dictons
    do while txt<>"'##########"
    txt=fich.readline
    loop
     
    'recherche de la ligne correspondant à aujourd'hui
    num=1
    Do While num<31*(month(date)-1)+day(date)
    fich.skipline
    num=num+1
    Loop
     
    'affichage du message
    txt = replace(fich.readline,"#",chr(10))
    txt=right(txt,len(txt)-1)
    if txt<>"'" then msgbox txt,,"le dicton du " & aujourdhui
    txt="<font style='font-family: Tahoma ;font-size: 8pt ;color:#808080;font-style: italic;'>" & txt & _
                    "</font><BR>" 
     
     
    item.htmlbody = replace(item.htmlbody ,"</BODY>", txt & "</BODY>")
     
    fich.Close 
    Set fich = Nothing 
    Set fs = Nothing 
    End Function
    les dictons à partir de "##########" doivent se trouver dans un fichier ici dans le dossier de démarrage comme l'install du script de départ.

Discussions similaires

  1. [XL-2007] Macro pour ajouter du texte dans le corps du mail
    Par EmmanuelleFFH dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/02/2011, 10h37
  2. Réponses: 13
    Dernier message: 31/01/2010, 10h58
  3. [PPT-2003] Cherche macro pour chercher/remplacer texte dans tableau
    Par cactus666 dans le forum VBA PowerPoint
    Réponses: 9
    Dernier message: 27/05/2009, 13h31
  4. Réponses: 2
    Dernier message: 09/04/2007, 21h52
  5. [VBA-PP] macro pour insérer des images dans PowerPoint
    Par mashpro dans le forum VBA PowerPoint
    Réponses: 4
    Dernier message: 01/08/2006, 22h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo