Discussion :

[Nicolas G]

Bonsoir à tous,

Dans le cadre de mon boulot, je dois créer des emails relativement standardisés (quelques données qui changent seulement sur chacn des mails). Et vu comme c'est mécanique comme procédé, je suis sur que ça doit pouvoir se traiter via une macro de manière bien plus efficace qu'a la mano !

C'est ici, comme mes connaissances en VBA sont médiocre, que je vais avoir besoin de vos lumières.

Ce que je souhaiterai, c'est créer une macro (que j'assignerai a un bouton a cliquer sur l'interface d'outlook 2010) qui fait les choses suivantes :
- D'abord, ça fait pop une boite de dialogue qui demande une info (pour l'exemple, l'âge du capitaine). J'aurai plusieurs données a demander a chaque fois, mais si vous pouviez me donner juste pour une, j'adapterai et me débrouillerai)
- Ensuite, ça crée 1 email (que ça affiche a l'écran, pas que ça envoie)
. Email num1 : titre du mail "l'âge du capitaine :"&la-valeur-qu'on-a-obtenue-juste-avant. Corps du mail : "Le capitaine est âge de "&la-valeur-qu'on-a-obtenue-juste-avant. Pour le moment, pas d'adresse email, on la rentrera manuellement une fois que les mails auront été crées

Dans la réalité des choses j'aurai 3 emails a devoir créer, mais je devrais pouvoir me débrouiller avec le code obtenu au dessus.

Si quelqu'un pouvait me filer un coup de main, ça serait vraiment ... génial. Des heures de boulot économisées

Merci par avance pour votre aide, et une bonne soirée !

[Oliv-]

Salut
voici un début

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
Sub new_mail()
    Dim objMail As Outlook.MailItem
    Dim capitaine As String
    capitaine = InputBox("Age du capitaine")
    Set objMail = Application.CreateItem(olMailItem)
    objMail.subject = capitaine
    objMail.Body = "Le capitaine est âge de " + capitaine
    Set theRecipientA = objMail.Recipients.add("titi@toto.fr")
 
    Set theRecipientCC = objMail.Recipients.add("test@toto.fr")
    theRecipientCC.Type = olBCC
 
 
    objMail.Display
End Sub

[gathz]

Wow, top ! :-)
Je profite du message de Nicolas pour développer le même genre de macro, merci Oliv pour ces éléments hyper instructifs...

Juste une petite question supplémentaire...
Comme Nicolas, je vais définir d'autres invites à partir de ce que tu as pu nous fournir... Par contre, comment faire pour assembler texte + champs avec un peu de mise en forme genre : sauts de lignes ?

Par ex :

objMail.Body = "Sector: " + sector + "Country: " + country

Si éventuellement j'en profitais, j'oserais même demander s'il est possible de sauter une ligne et de faire des mises en forme type "mettre le champs en gras" ?

Et si vraiment j'abusais, je te demanderais s'il existe la même chose mais où au lieu de saisir la réponse l'on cocherait ce qu'on veut inscrire parmis un choix de réponses (genre box à cocher...) ?

Parce que vraiment le VBA j'y connais pas grand'chose... mais je sais que ça fait beaucoup, tout fragment d'aide sera vraiment la bienvenue !!

MERCI !!

[Oliv-]

Cela dépend du format du Mail.
texte brut
saut de ligne ="texte" + vbcr + "texte"
GRAS : ca n'existe pas

ou HTML (on evitera le rtf)
saut de ligne :
on utilise les balises HTML (il faut connaitre ce langage ou regarder ce qui est fait par outlook ou word, ou un éditeur html "forum" par exemple)
"texte<br />texte"

"<b> Ce texte est en gras </b>"

concernant le dernier il faut utiliser les userform
voir la faq http://outlook.developpez.com/faq/
et ce tutoriel
http://www.developpez.net/forums/d66...vba-d-outlook/

[gathz]

Merci pour cette info !
En recoupant cela avec de multiples recherches, j'en suis arrivée à

objMail.Body = "Sector: " + sector + vbCrLf + "Country: " + country

qui fonctionne nickel ! ;-)

[Nicolas G]

Hello !

Je rentre tout juste de b. trip et ai pu tester ton code, ça m'a pas mal aidé (j'ai meme poussé un peu pour incorporer du HTMLBody et faire de belles mises en pages).

J'ai une derniers requête, et promis j'vous embête plus après !

Ma macro demande une reference (un numéro) et génère 2 mails : un interne, et un externe. Les deux mails sont générés comme il faut. Maintenant, ce que je voudrais faire, c'est :
- Créer un 3eme mail avec le numéro de reference en sujet (jarrive a le faire sans soucis)
- Incorporer dans ce mail les deux que j'ai envoyé (l'interne et l'externe) - en gros ça serait via une macro, mettre les mails dedans comme si on faisait un glisser déposer a la souris
- Sauver le mail en draft et le déplacer vers un dossier qu'on appellera "Shopping Carts"

Mon hésitation vient du drag and drop en macro. Aucune idée de si c'est réalisable ou pas. J'ai fais en sorte que les mails que j'envoie atterrissent dans ma BAL en me mettant en bcc, donc on pourrait faire une commande qui drag and drop les 2 derniers mails reçus.

Merci énormément par avance pour toute aide !