macro mail automatique via outlook

[massimo]

Bonjour à tous,

Je souhaite mettre en place une automatisation d'envoi de mail via une feuille de calcul excel. Je suis totalement incompétent en vba et je pense qu'il s'agit de la seule solution pour procéder à ce que je souhaite faire.
En fait lorsque je clique sur le mail du fournisseur concerné, je voudrais qu'il envoie un mail préconfiguré avec une personnalisation avec les éléments du fournisseurs présents dans les autres colonnes.
Si quelqu'un peut m'aider pour réaliser cela, d'avance merci.

 

[don_pets]

Re : macro mail automatique via outlook

'llo,

Il existe différentes manières d'aborder ta question. Avant toute chose, que veux tu faire apparaître ?

- Un mail type avec une PJ qui reprend tes données filtrées ?
- Les données dans le corps du mail ?

don

 

[massimo]

Re : macro mail automatique via outlook

Le must serait d'avoir en effet une pj au format pdf avec les données individualisées pour chaque fournisseur.

 

[don_pets]

Re : macro mail automatique via outlook

Bon, j'ai pas pu obtenir ce que je voulais précisément, mais disons que cela fera une bonne base pour la suite.

2 actions :
1) tu génères un pdf en choisissant un fournisseur (en gros on filtre dessus, et on ne prend que le fournisseur
2) tu génères un mail en allant chercher la pj

Pour info voici les codes

1) Générer le PDF

With Sheets(2)
' Filtrer
Sheets(2).Select
rep = InputBox("Quel fournisseur ?")
Sheets(2).Select
Selection.AutoFilter Field:=1, Criteria1:=rep

' Format PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    ignorePrintAreas:=False, OpenAfterPublish:=True

' Remise à 0
Sheets(2).Select
    Selection.AutoFilter Field:=1
    Selection.AutoFilter Field:=2
    Selection.AutoFilter Field:=3
    Selection.AutoFilter Field:=4
    Selection.AutoFilter Field:=5
    Selection.AutoFilter Field:=6
    Selection.AutoFilter Field:=7

End With

2) Générer le mail

Sheets("Notation").Select
rep = InputBox("Quelle adresse de messagerie")
ChDir "D:\"
fichier = Application.GetOpenFilename("(*.pdf),")

Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)

With myitem
.Recipients.Add (rep)
.Subject = "Blabla"
.attachments.Add fichier
myitem.Display
End With

What do you think about it ?


don

 

[massimo]

Re : macro mail automatique via outlook

Merci pour cette réponse rapide.
Simplement, sans vouloir abuser de tes compétences, je pense que le pdf n'est finnallement pas une bonne idée.
Pour être plus précis, je souhaite générer un mail personnalisé dès que je clique sur le bouton présent dans la colonne I.

Le mail serait du genre (pour l'offre présente en première ligne)

Madame, Monsieur,

Suite à la remise de votre offre, cette dernière est arrivée en H2 position. La note qui vous a été attribuée est G2

...

Encore merci pour ton aide prècieuse!