VBA: répondre à un mail ouvert sous OUTLOOK 2010

Aragon10

XLDnaute Occasionnel
Bonjour,

J'ai créé sous Excel une macro qui exécute les étapes suivantes:

- copier des champs Excel
- ouvrir word
-coller ces champs sur word (en obtenant un format image)
-enregistre ensuite ce formulaire word dans un dossier.

ce formulaire enregistré sera par la suite envoyé par mail à leur destinataires. Y a-t-il un code qui peut m'ajouter et simplifier les tâches suivantes:

- il détecte le mail déjà ouvert sous OUTLOOK
- taper "répondre à tous"
- ajouter un objet
- ajouter un contenu
- ajouter des destinataires en copie
- mettre en jointure le fichier déjà enregistré dans le dossier.

ci-dessous mon code:

Code:
Sub Formulaire()
 
Dim Dte As Date
Dim j As Byte, m As String
Dim a As Integer
Dim way As Variant
Dim way1 As Variant
 
Dte = Sheets("OFFRE DAT").Cells(16, 3)
way = Sheets("DAT").Cells(3, 21)
way1 = Sheets("DAT").Cells(3, 20)
 
j = Day(Dte)
j1 = Format(j + 1, "dd")
 
mee = Sheets("DAT").Cells(3, 1)
m = Format(mee, "mmmm")
a = Year(Dte)
 
Dim oWdApp As Object
Dim oWdDoc As Object
 
ligne = ActiveCell.Row
 
Sheets("OFFRE DAT").Activate
relation = Sheets("OFFRE DAT").Cells(9, 5)
 
 
If Len(Dir(way1, vbDirectory)) = 0 Then
   MkDir way1
 
End If
 
If Len(Dir(way, vbDirectory)) = 0 Then
   MkDir way
End If
 
Set oWdApp = CreateObject("Word.Application")
Set oWdDoc = oWdApp.Documents.Open("\\Srv-p-fichier\sdm\Tréso\Tréso Devise\Template placement.docx")
oWdApp.Visible = True
Range("A1:H50").Copy
oWdApp.Selection.PasteAndFormat (13)
Application.CutCopyMode = False
oWdApp.Visible = True
oWdApp.Selection.TypeParagraph
oWdApp.ActiveDocument.SaveAs Filename:=way & "DAT" & "_" & relation & "(" & j1 & "-" & m & "-" & a & ")" & ".docx"
 
End Sub

Merci pour votre précieuse réponse.
 

Staple1600

XLDnaute Barbatruc
Re : VBA: répondre à un mail ouvert sous OUTLOOK 2010

Bonjour à tous

Aragon10 [highlight][Bienvenue sur le forum][/code]
Si tu suis les judicieux conseils que tu n'as pas manqué de lire quand tu as créé ta discussion...:rolleyes:
(oui je parle ce qu tu lis juste dessous)
IMPORTANT :
- CHARTE DU FORUM : Lisez Lien suppriméLien supprimé avant votre première intervention.

- ILLUSTREZ VOTRE DEMANDE : Afin de faciliter la compréhension de votre demande il est conseillé de joindre un PETIT fichier qui illustre votre question précise et montre les résultats que vous cherchez à obtenir.
Pour l'envoyer, cliquez sur le trombone ci-dessous ou sur le bouton "Gérer les pièces jointes" dans la zone "Options supplémentaires".Ensuite, cliquez sur le bouton "Parcourir" et sélectionnez-le (après l'avoir compressé s'il dépasse les 250Ko).

- DONNEES CONFIDENTIELLES : Ne laissez AUCUNE donnée personnelle ou confidentielle (noms, adresses, N° de téléphone, entreprises...) dans vos pièces jointes. Vous mettriez Excel-Downloads en contravention avec la loi Informatique et Liberté et votre fichier devrait être enlevé.
Notamment le premier d'entre eux (la charte) ...qui aurait du te mener jusqu'à la loupe
( AKA le point 1) de la charte, section Demandeur)

Et si sur la loupe, tu avais cliqué alors tu aurais trouvé de nombreux exemples dans les archives du forum qui illustrent ou résolvent les points de la liste de tâches à automatiser par le biais de VBA. ;)
- il détecte le mail déjà ouvert sous OUTLOOK
- taper "répondre à tous"
- ajouter un objet
- ajouter un contenu
- ajouter des destinataires en copie
- mettre en jointure le fichier déjà enregistré dans le dossier.
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re : VBA: répondre à un mail ouvert sous OUTLOOK 2010

Re

Aragon10
Donc je disais qu'en utilisant le loupe pour chercher des élements de réponse dans les archives du forum
on trouve par exemple ceci.
https://www.excel-downloads.com/thr...ondre-a-un-mail-avec-message-predefni.125662/
qui nous permet d'avance sur ce point:
il détecte le mail déjà ouvert sous OUTLOOK
Une autre recherche nous permet d'avancer sur cet autre point
- taper "répondre à tous"
https://www.excel-downloads.com/threads/vba-fonction-reply-to-all.146525/


Je t'encourage donc à faire d'autres clics sur la loupe pour trouver d'autres discussions dans les archives pour trouver des éléments de réponse pour la suite ;)



 
Dernière édition:

Statistiques des forums

Discussions
311 705
Messages
2 081 733
Membres
101 807
dernier inscrit
foued