Bonjour à tous,
J'ai un petit soucis sur une Macro que j'ai crée et me reste un petit problème à régler.
Mon soucis:
La macro marche super bien (à condition que le fichier en Pièce jointe soit mis dans la macro, ce qui est la cas dans ma macro actuelle).
ce que je veux:
Changer le fichier à chaque fois: je généré un reporting sur EXCEL (une autre macro), j'enregistre ce dernier dans un répertoire et je souhaite qu'à chaque génération du fichier EXCEL de reporting, le déclenchement de la procédure).
******* Macro************
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
'---------------------------------------------------------
'Ou bien entrer le path et nom du fichier autrement
Nom_Fichier = "C:\07-DashBoard\Application\Archive_KPI\name"
If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
With oBjMail
.To = "mary@gmail.com" ' le destinataire
.CC = "laura@gmail.com ; nicolas@gmail.com"
.Subject = "KPI IMPULSE SUPPORT" ' l'objet du mail
.Body = "Hello, " & vbLf & vbLf & "Please find attached the KPIs provided by Impulse Export on 31-08-2016." & vbLf & vbLf & vbLf & "Best Regards" 'le corps du mail ..son contenu
.Attachments.Add "C:\07-DashBoard\Application\Archive_KPI\name"
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
'.Send
End With
'ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub
Merci pour votre aide
Nazim
J'ai un petit soucis sur une Macro que j'ai crée et me reste un petit problème à régler.
Mon soucis:
La macro marche super bien (à condition que le fichier en Pièce jointe soit mis dans la macro, ce qui est la cas dans ma macro actuelle).
ce que je veux:
Changer le fichier à chaque fois: je généré un reporting sur EXCEL (une autre macro), j'enregistre ce dernier dans un répertoire et je souhaite qu'à chaque génération du fichier EXCEL de reporting, le déclenchement de la procédure).
******* Macro************
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
'---------------------------------------------------------
'Ou bien entrer le path et nom du fichier autrement
Nom_Fichier = "C:\07-DashBoard\Application\Archive_KPI\name"
If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
With oBjMail
.To = "mary@gmail.com" ' le destinataire
.CC = "laura@gmail.com ; nicolas@gmail.com"
.Subject = "KPI IMPULSE SUPPORT" ' l'objet du mail
.Body = "Hello, " & vbLf & vbLf & "Please find attached the KPIs provided by Impulse Export on 31-08-2016." & vbLf & vbLf & vbLf & "Best Regards" 'le corps du mail ..son contenu
.Attachments.Add "C:\07-DashBoard\Application\Archive_KPI\name"
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
'.Send
End With
'ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub
Merci pour votre aide
Nazim