Avoir une macro pour envoyer mon fichier Excel directement par Outlook
Fermé
sylmarco
Messages postés
79
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
29 août 2024
-
24 avril 2019 à 18:07
juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 10 mai 2019 à 13:49
juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 10 mai 2019 à 13:49
A voir également:
- Avoir une macro pour envoyer mon fichier Excel directement par Outlook
- Fichier rar - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
1 réponse
juer31
Messages postés
107
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
25 mars 2024
6
26 avril 2019 à 15:50
26 avril 2019 à 15:50
Voici la solution a ton problème. Un clic sur merci et c'est régler pour moi!
Sub EnvoiMail()
Dim lemail As Variant
Dim source_file As String
source_file = ThisWorkbook.FullName
Set lemail = CreateObject("outlook.application")
With lemail.CreateItem(olMailItem)
.Subject = "Mémo pour client #" & Cells(4, 4) & " - " & Cells(5, 4) & " valide à partir du " & Cells(2, 4) & " prix à me fournir"
.To = "Nathan.@testlb.ca"
.CC = "sylvie@testlb.ca"
.Body = "Bonjour Nathan, voici les prix à me compléter pour ton client."
strLocation = source_file
.Attachments.Add (strLocation)
.display
End With
End Sub
Sub EnvoiMail()
Dim lemail As Variant
Dim source_file As String
source_file = ThisWorkbook.FullName
Set lemail = CreateObject("outlook.application")
With lemail.CreateItem(olMailItem)
.Subject = "Mémo pour client #" & Cells(4, 4) & " - " & Cells(5, 4) & " valide à partir du " & Cells(2, 4) & " prix à me fournir"
.To = "Nathan.@testlb.ca"
.CC = "sylvie@testlb.ca"
.Body = "Bonjour Nathan, voici les prix à me compléter pour ton client."
strLocation = source_file
.Attachments.Add (strLocation)
.display
End With
End Sub
3 mai 2019 à 20:17
Sylmarco
3 mai 2019 à 20:48
6 mai 2019 à 14:57
6 mai 2019 à 18:31
De plus, j'ai un autre petit problème. Tout mon formulaire est protégé par un mot de passe à l'exceptions des cellules qui doivent être remplies par mes vendeurs. Ce qui fait que mes macros ne fonctionnent plus lorsque je protège ma feuille. Y a--t-il moyen de contourner ça ?
Merci énormément de votre aide !
Sylmarco
6 mai 2019 à 19:39