adresse email dans une cellule

Le
pellet15
Bonjour
J'ai besoin d'envoyé un email a plusieurs destinataire et leur adresse es=
t 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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24510311
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
Le #24510641
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
DanielCo
Le #24547291
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
Publicité
Poster une réponse
Anonyme