Enregistrer un mail ouvert créé à partir d'une macro Excel
Bonjour,
Autodidacte en macro excel (merci google et les internautes) je bute sur le problème suivant :
J'ai créé une macro excel qui permet d'élaborer un mail à partir de données collectés dans celui-ci.
Je voudrais sauvegarder ce mail à partir de cette macro dans un répertoire de windows avec le nom de l'objet comme nom de fichier.
Il faudrait que cette sauvegarde ai lieu avant envoi du fichier si possible comme cel est possible hors macro avec fichier (puis enregistrer) en haut à gauche du mail (outlook).
Malgré mes recherches je n'ai pas abouti.
Quelqu'un aurait t'il la solution ?
Merci d'avance pour votre participation
ci-joint le code :
Sub emailrapport()
'
' envoie un mail du rapport
'
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)
ligne = ActiveCell.Row 'Releve la ligne de position du curseur
If Cells(ligne, 18) = "ACTIA" Then
monItem.To = Worksheets("Responsable secteur AIRBUS").Range("F14").Value
ElseIf Cells(ligne, 18) = "EYYLBR" Then
monItem.To = Worksheets("Responsable secteur AIRBUS").Range("F4").Value
ElseIf Cells(ligne, 18) = "EYYLR" Then
monItem.To = Worksheets("Responsable secteur AIRBUS").Range("F5").Value
ElseIf Cells(ligne, 18) = "EYYMIC" Then
monItem.To = Worksheets("Responsable secteur AIRBUS").Range("F9").Value
ElseIf Cells(ligne, 18) = "EYYMSA" Then
monItem.To = Worksheets("Responsable secteur AIRBUS").Range("F7").Value
ElseIf Cells(ligne, 18) = "EYYMST" Then
monItem.To = Worksheets("Responsable secteur AIRBUS").Range("F11").Value
ElseIf Cells(ligne, 18) = "EYYROR" Then
monItem.To = Worksheets("Responsable secteur AIRBUS").Range("F6").Value
ElseIf Cells(ligne, 18) = "EYYWEB" Then
monItem.To = Worksheets("Responsable secteur AIRBUS").Range("F3").Value
ElseIf Cells(ligne, 18) = "ACTIA" Then
monItem.To = Worksheets("Responsable secteur AIRBUS").Range("F4").Value
ElseIf Cells(ligne, 18) = "ROCKWELL" Then
monItem.To = Worksheets("Responsable secteur AIRBUS").Range("F13").Value
End If
'Activer les options de vote
VotingOptions = "Valider;Refuser"
MsgBox "Ne pas oublier d'activer les options de vote et de joindre le rapport de maintenance avec les fichiers de test ou le rapport de recette"
monItem.CC = "adresse@toto.com;adresse@toto.com"
' Objet du mail
monItem.Subject = "Archivage du rapport de maintenance 2015 " & Cells(ligne, 9) & " SN : " & Cells(ligne, 17)
monItem.Body = "Bonjour," & Chr(10) & Chr(10) & "Je vous informe de la mise à disposition du rapport du moyen de test cité en objet." & Chr(10) & "Merci d 'approuver ou refuser ce rapport à l'aide des boutons de vote." & Chr(10) & Cells(ligne, 7)
monItem.Display
Set ol = Nothing
'Ici on défini le répertoire où l'enregistrer
repertoire = "R:\Support_Clients\Suivi_OEM\Airbus\01_MCO_IMS\F2_Maintenance préventive\ARCHIVES_DES_MAILS\essai"
'Nom du fichier
NomExport = "Archivage du rapport de maintenance 2015 " & Cells(ligne, 9) & " SN : " & Cells(ligne, 17)
'ActiveWorkbook.SaveAs Filename:="R:\Support_Clients\Suivi_OEM\Airbus\01_MCO_IMS\F2_Maintenance préventive\ARCHIVES_DES_MAILS\essai\'NomExport'"
End Sub
En première approche de ton soucis, si l'enregistrement du mail sous windows (ce que je ne connaissais pas) est une fonction activable à partir d'outlook, ce n'est pas excel qui le fera même par macro, sauf à jouer sur les sendkeys d'excel vers outlook.
Sinon, il faut changer le fusil d'épaule et enregistrer un ersatz à partir d'excel.