Envoyer un mail avec piece jointe sous vba
Résolu/Fermé
olivia
-
3 sept. 2010 à 09:55
JO882161 Messages postés 6 Date d'inscription mercredi 4 janvier 2017 Statut Membre Dernière intervention 5 janvier 2017 - 5 janv. 2017 à 13:18
JO882161 Messages postés 6 Date d'inscription mercredi 4 janvier 2017 Statut Membre Dernière intervention 5 janvier 2017 - 5 janv. 2017 à 13:18
A voir également:
- Vba envoyer mail avec pièce jointe
- One piece kai ✓ - Forum Cinéma / Télé
- Yahoo mail - Guide
- Telecharger one piece - Forum Téléchargement
- Je n'arrive pas a envoyer un mail avec piece jointe ✓ - Forum Mail
- Impossible d'envoyer mail avec fichier joint ✓ - Forum Mail
6 réponses
Je viens de trouver ma réponse voici la marche à suivre :
Private Sub CommandButton1_Click()
Set myApp = CreateObject("Outlook.Application")
Set myItem = myApp.CreateItem(olMailItem)
myItem.Subject = "subject"
myItem.Body = "Body text"
myItem.Attachments.Add ThisDocument.Path & "\" & ThisDocument.Name
myItem.to = "test@test.fr"
myItem.Display
myItem.Send
End Sub
J'espère que cela pourra être utile à quelqu'un d'autre. En tout cas je trouve ce forum vraiment super
Private Sub CommandButton1_Click()
Set myApp = CreateObject("Outlook.Application")
Set myItem = myApp.CreateItem(olMailItem)
myItem.Subject = "subject"
myItem.Body = "Body text"
myItem.Attachments.Add ThisDocument.Path & "\" & ThisDocument.Name
myItem.to = "test@test.fr"
myItem.Display
myItem.Send
End Sub
J'espère que cela pourra être utile à quelqu'un d'autre. En tout cas je trouve ce forum vraiment super
21 janv. 2013 à 13:39
5 janv. 2017 à 13:18
Je n'arrive pas avec ce .Attachements :(
With .Item
.To = Worksheets("Mail").Range("B23")
.CC = ""
.BCC = ""
.Subject = "Klusi"
.Attachements.Add ("Q:\ZLS-Command_Temp\UST Mühleberg Duplex 16kV Ltg. Illiswil")
.Send ' envoie automatique
End With