Voici la macros que je veut modifier:
.......
Dim Subject As String, Attention As String
Subject =3D "Inspection du " & Date
Attention =3D "nom@mail.com"
Application.Dialogs(xlDialogSendMail).Show Attention, Subject
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour, La cellule A2 doit contenir : ; @.com; le code devient : Dim Subject As String, Attention As String Subject = "Inspection du " & Date Attention = Sheets("Feuille_insp").[A2] Application.Dialogs(xlDialogSendMail).Show Attention, Subject Daniel
Bonjour J'ai besoin d'envoyé un email a plusieurs destinataire et leur adresse est dans l'onglet Sheets("Feuille_insp")
cellule "a2" . , @.com,
Voici la macros que je veut modifier: ....... Dim Subject As String, Attention As String Subject = "Inspection du " & Date Attention = "" Application.Dialogs(xlDialogSendMail).Show Attention, Subject End Sub
Merci
Bonjour,
La cellule A2 doit contenir :
1nom@mail.com; 2nom@mail@.com; 3nom@mail.com
le code devient :
Dim Subject As String, Attention As String
Subject = "Inspection du " & Date
Attention = Sheets("Feuille_insp").[A2]
Application.Dialogs(xlDialogSendMail).Show Attention, Subject
Daniel
Bonjour
J'ai besoin d'envoyé un email a plusieurs destinataire et leur adresse est
dans l'onglet Sheets("Feuille_insp")
Voici la macros que je veut modifier:
.......
Dim Subject As String, Attention As String
Subject = "Inspection du " & Date
Attention = "nom@mail.com"
Application.Dialogs(xlDialogSendMail).Show Attention, Subject
End Sub
Bonjour, La cellule A2 doit contenir : ; @.com; le code devient : Dim Subject As String, Attention As String Subject = "Inspection du " & Date Attention = Sheets("Feuille_insp").[A2] Application.Dialogs(xlDialogSendMail).Show Attention, Subject Daniel
Bonjour J'ai besoin d'envoyé un email a plusieurs destinataire et leur adresse est dans l'onglet Sheets("Feuille_insp")
cellule "a2" . , @.com,
Voici la macros que je veut modifier: ....... Dim Subject As String, Attention As String Subject = "Inspection du " & Date Attention = "" Application.Dialogs(xlDialogSendMail).Show Attention, Subject End Sub
Merci
pellet15
Bonjour DanielCo
Cela fonctionne bien. Merci
en plus de ce fichier XLS , je voudrait ajouter une version PDF. Comment faire ?
Merci encore...
> Bonjour > J'ai besoin d'envoyï¿ un email a plusieurs destinataire et leur adresse est > dans l'onglet Sheets("Feuille_insp") > > cellule "a2" . > , @.com, > > Voici la macros que je veut modifier: > ....... > Dim Subject As String, Attention As String > Subject = "Inspection du " & Date > Attention = "" > Application.Dialogs(xlDialogSendMail).Show Attention, Subject > End Sub > > Merci
Bonjour DanielCo
Cela fonctionne bien.
Merci
en plus de ce fichier XLS , je voudrait ajouter une version PDF.
Comment faire ?
Merci encore...
> Bonjour
> J'ai besoin d'envoyï¿ un email a plusieurs destinataire et leur adresse est
> dans l'onglet Sheets("Feuille_insp")
>
> cellule "a2" .
> 1nom@mail.com, 2nom@mail@.com, 3nom@mail.com
>
> Voici la macros que je veut modifier:
> .......
> Dim Subject As String, Attention As String
> Subject = "Inspection du " & Date
> Attention = "nom@mail.com"
> Application.Dialogs(xlDialogSendMail).Show Attention, Subject
> End Sub
>
> Merci
en plus de ce fichier XLS , je voudrait ajouter une version PDF. Comment faire ?
Merci encore...
> Bonjour > J'ai besoin d'envoyï¿ un email a plusieurs destinataire et leur adresse est > dans l'onglet Sheets("Feuille_insp") > > cellule "a2" . > , @.com, > > Voici la macros que je veut modifier: > ....... > Dim Subject As String, Attention As String > Subject = "Inspection du " & Date > Attention = "" > Application.Dialogs(xlDialogSendMail).Show Attention, Subject > End Sub > > Merci
DanielCo
Utilise (avec Outlook) :
Sub Mail() Set olApp = CreateObject("Outlook.application") Set m = olApp.CreateItem(olMailItem) With m .Subject = "Inspection du " & Date .Recipients.Add "" .Recipients.Add "" .Attachments.Add "C:temptmp.pdf" .Attachments.Add ThisWorkbook.FullName .Display End With End Sub
Daniel
Bonjour DanielCo
Cela fonctionne bien. Merci
en plus de ce fichier XLS , je voudrait ajouter une version PDF. Comment faire ?
Merci encore...
Bonjour J'ai besoin d'envoy� un email a plusieurs destinataire et leur adresse est dans l'onglet Sheets("Feuille_insp")
cellule "a2" . , @.com,
Voici la macros que je veut modifier: ....... Dim Subject As String, Attention As String Subject = "Inspection du " & Date Attention = "" Application.Dialogs(xlDialogSendMail).Show Attention, Subject End Sub
Merci
Utilise (avec Outlook) :
Sub Mail()
Set olApp = CreateObject("Outlook.application")
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Inspection du " & Date
.Recipients.Add "nom1@mail.com"
.Recipients.Add "nom2@mail.com"
.Attachments.Add "C:temptmp.pdf"
.Attachments.Add ThisWorkbook.FullName
.Display
End With
End Sub
Daniel
Bonjour DanielCo
Cela fonctionne bien.
Merci
en plus de ce fichier XLS , je voudrait ajouter une version PDF.
Comment faire ?
Merci encore...
Bonjour
J'ai besoin d'envoy� un email a plusieurs destinataire et leur adresse
est dans l'onglet Sheets("Feuille_insp")
Voici la macros que je veut modifier:
.......
Dim Subject As String, Attention As String
Subject = "Inspection du " & Date
Attention = "nom@mail.com"
Application.Dialogs(xlDialogSendMail).Show Attention, Subject
End Sub
Sub Mail() Set olApp = CreateObject("Outlook.application") Set m = olApp.CreateItem(olMailItem) With m .Subject = "Inspection du " & Date .Recipients.Add "" .Recipients.Add "" .Attachments.Add "C:temptmp.pdf" .Attachments.Add ThisWorkbook.FullName .Display End With End Sub
Daniel
Bonjour DanielCo
Cela fonctionne bien. Merci
en plus de ce fichier XLS , je voudrait ajouter une version PDF. Comment faire ?
Merci encore...
Bonjour J'ai besoin d'envoy� un email a plusieurs destinataire et leur adresse est dans l'onglet Sheets("Feuille_insp")
cellule "a2" . , @.com,
Voici la macros que je veut modifier: ....... Dim Subject As String, Attention As String Subject = "Inspection du " & Date Attention = "" Application.Dialogs(xlDialogSendMail).Show Attention, Subject End Sub