Envoi de Mails sur Excel : adresses et textes dans la feuille
Résolu/Fermé
loquins
Messages postés
3
Date d'inscription
vendredi 24 mars 2017
Statut
Membre
Dernière intervention
24 mars 2017
-
24 mars 2017 à 16:41
loquins Messages postés 3 Date d'inscription vendredi 24 mars 2017 Statut Membre Dernière intervention 24 mars 2017 - 24 mars 2017 à 19:31
loquins Messages postés 3 Date d'inscription vendredi 24 mars 2017 Statut Membre Dernière intervention 24 mars 2017 - 24 mars 2017 à 19:31
A voir également:
- Envoi de Mails sur Excel : adresses et textes dans la feuille
- Liste déroulante excel - Guide
- Si et excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Comment aller à la ligne sur excel - Guide
- Trier sur excel - Guide
1 réponse
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
24 mars 2017 à 16:54
24 mars 2017 à 16:54
Bonjour,
Comme ceci:
Comme ceci:
Option Explicit Dim i As Integer Private Sub CommandButton1_Click() For i = 1 To 3 Call Mail Next i End Sub Sub Mail() Dim OutlookApp As Object Dim Mess As Object, Recip As String Recip = Range("B" & i).Value Set OutlookApp = CreateObject("Outlook.Application") Set Mess = OutlookApp.CreateItem(olMailItem) With Mess .Subject = "Infos" .Body = Range("C" & i).Value .Recipients.Add Recip .Send End With End Sub
24 mars 2017 à 17:16
24 mars 2017 à 17:34
Variable non définie" avec olMailItem
la variable olMailItem n'est pas déclarée!
Toujours mettre Option Explicit, cela oblige à déclarer vos variable
24 mars 2017 à 19:31