envoi d'une feuille xls par mail vers un groupe

Le
freedo
Bonjour à Toutes et à Tous,
pour envoyer une feuille excel de mon classeur à plusieurs intérressés=

par e-mail repris dans une liste de tableau j'utilise la macro
suivante :
Sub Mail_Every_Worksheet()
Dim sh As Worksheet
Dim wb As Workbook
Dim strdossier As String
Dim MyArrIndex As Long
Dim E_Mail_Count As Long
Dim cell As Range
Dim MyArr() As String
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("f61").Value Like "*@*" Then
Range("D4").Select
'-
'strdate = Format(Now, "dd-mm-yy h-mm-ss")
'-
strdossier = Selection
E_Mail_Count =
sh.Columns("f").Cells.SpecialCells(xlCellTypeConstants).Count
ReDim MyArr(1 To E_Mail_Count)
MyArrIndex = 1
For Each cell In
sh.Columns("f").Cells.SpecialCells(xlCellTypeConstants)
If cell Like "*@*" Then
MyArr(MyArrIndex) = cell.Value
MyArrIndex = MyArrIndex + 1
'-
'MyArrIndex = MyArrIndex
'
End If
Next
ReDim Preserve MyArr(1 To MyArrIndex)
sh.Copy
Set wb = ActiveWorkbook
'--
'Set wb = ActiveWorkheets
'Set wb = Worksheets("envoi-resultat")
'& ThisWorkbook.Name & " " & strdate & ".xls"
'-
With wb
.SaveAs sh.Name & " de " _
& strdossier & ".xls"
.SendMail MyArr, _
"résultat d'adjudication" '"ici, C'est la
ligne objet"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End If
Next sh
Application.ScreenUpdating = True
End Sub

Comment puis-je envoyer à un groupe pré défini dans outlook et repris
sous le nom de Résultat d'adjudications pour lequel le type de
messagerie défini par outlook est : MAPIPDL
Merci de suivre
Freedo
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
Daniel.C
Le #5175971
Bonjour.
Si tu envoies à un groupe de destinataires, la syntaxe est :
.SendMail "Nomdugroupe", "objetdu mail"
Daniel
"freedo"
Bonjour à Toutes et à Tous,
pour envoyer une feuille excel de mon classeur à plusieurs intérressés
par e-mail repris dans une liste de tableau j'utilise la macro
suivante :
Sub Mail_Every_Worksheet()
Dim sh As Worksheet
Dim wb As Workbook
Dim strdossier As String
Dim MyArrIndex As Long
Dim E_Mail_Count As Long
Dim cell As Range
Dim MyArr() As String
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("f61").Value Like "*@*" Then
Range("D4").Select
'-------------------------------------------
'strdate = Format(Now, "dd-mm-yy h-mm-ss")
'-------------------------------------------
strdossier = Selection
E_Mail_Count sh.Columns("f").Cells.SpecialCells(xlCellTypeConstants).Count
ReDim MyArr(1 To E_Mail_Count)
MyArrIndex = 1
For Each cell In
sh.Columns("f").Cells.SpecialCells(xlCellTypeConstants)
If cell Like "*@*" Then
MyArr(MyArrIndex) = cell.Value
MyArrIndex = MyArrIndex + 1
'----------------------------------------
'MyArrIndex = MyArrIndex
'---------------------------------------
End If
Next
ReDim Preserve MyArr(1 To MyArrIndex)
sh.Copy
Set wb = ActiveWorkbook
'--------------------------------------------------------
'Set wb = ActiveWorkheets
'Set wb = Worksheets("envoi-resultat")
'& ThisWorkbook.Name & " " & strdate & ".xls"
'-------------------------------------------------------
With wb
.SaveAs sh.Name & " de " _
& strdossier & ".xls"
.SendMail MyArr, _
"résultat d'adjudication" '"ici, C'est la
ligne objet"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End If
Next sh
Application.ScreenUpdating = True
End Sub

Comment puis-je envoyer à un groupe pré défini dans outlook et repris
sous le nom de Résultat d'adjudications pour lequel le type de
messagerie défini par outlook est : MAPIPDL
Merci de suivre
Freedo
freedo
Le #5175811
On 4 mar, 15:21, "Daniel.C"
Bonjour.
Si tu envoies à un groupe de destinataires, la syntaxe est :
.SendMail "Nomdugroupe", "objetdu mail"
Daniel
"freedo"
Bonjour à Toutes et à Tous,
pour envoyer une feuille excel de mon classeur à plusieurs intérress és
par e-mail repris dans une liste de tableau j'utilise la macro
suivante  :
Sub Mail_Every_Worksheet()
    Dim sh As Worksheet
    Dim wb As Workbook
    Dim strdossier As String
    Dim MyArrIndex As Long
    Dim E_Mail_Count As Long
    Dim cell As Range
    Dim MyArr() As String
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        If sh.Range("f61").Value Like "*@*" Then
            Range("D4").Select
'-------------------------------------------
'strdate = Format(Now, "dd-mm-yy h-mm-ss")
'-------------------------------------------
           strdossier = Selection
            E_Mail_Count =
sh.Columns("f").Cells.SpecialCells(xlCellTypeConstants).Count
            ReDim MyArr(1 To E_Mail_Count)
            MyArrIndex = 1
            For Each cell In
sh.Columns("f").Cells.SpecialCells(xlCellTypeConstants)
                If cell Like "*@*" Then
                    MyArr(MyArrIndex) = cell.Value
                  MyArrIndex = MyArrIndex + 1
'----------------------------------------
'MyArrIndex = MyArrIndex
'---------------------------------------
           End If
            Next
            ReDim Preserve MyArr(1 To MyArrIndex)
            sh.Copy
            Set wb = ActiveWorkbook
'--------------------------------------------------------
'Set wb = ActiveWorkheets
'Set wb = Worksheets("envoi-resultat")
'& ThisWorkbook.Name & " " & strdate & ".xls"
'-------------------------------------------------------
            With wb
                .SaveAs sh.Name & " de " _
                      & strdossier & ".xls"
                .SendMail MyArr, _
                          "résultat d'adjudica tion"  '"ici, C'est la
ligne objet"
                .ChangeFileAccess xlReadOnly
                Kill .FullName
                .Close False
            End With
        End If
    Next sh
    Application.ScreenUpdating = True
End Sub

Comment puis-je envoyer à un groupe pré défini dans outlook et repri s
sous le nom de Résultat d'adjudications pour lequel le type de
messagerie défini par outlook est : MAPIPDL
Merci de suivre
Freedo


Bonjour daniel,
merci pour ta reponse, mais où modifier ma macro pour insérer ta
solution ?
merci de suivre
Freedo

Daniel.C
Le #5175741
Actuellement, ta macro envoie le classeur à une liste de destinataires. Que
veux-tu faire ? Evoyer le message au groupe et à la liste de destinataires ?
Quel est le nom du groupe ?
Daniel
"freedo"
On 4 mar, 15:21, "Daniel.C"
Bonjour.
Si tu envoies à un groupe de destinataires, la syntaxe est :
.SendMail "Nomdugroupe", "objetdu mail"
Daniel
"freedo"
Bonjour à Toutes et à Tous,
pour envoyer une feuille excel de mon classeur à plusieurs intérressés
par e-mail repris dans une liste de tableau j'utilise la macro
suivante :
Sub Mail_Every_Worksheet()
Dim sh As Worksheet
Dim wb As Workbook
Dim strdossier As String
Dim MyArrIndex As Long
Dim E_Mail_Count As Long
Dim cell As Range
Dim MyArr() As String
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("f61").Value Like "*@*" Then
Range("D4").Select
'-------------------------------------------
'strdate = Format(Now, "dd-mm-yy h-mm-ss")
'-------------------------------------------
strdossier = Selection
E_Mail_Count > sh.Columns("f").Cells.SpecialCells(xlCellTypeConstants).Count
ReDim MyArr(1 To E_Mail_Count)
MyArrIndex = 1
For Each cell In
sh.Columns("f").Cells.SpecialCells(xlCellTypeConstants)
If cell Like "*@*" Then
MyArr(MyArrIndex) = cell.Value
MyArrIndex = MyArrIndex + 1
'----------------------------------------
'MyArrIndex = MyArrIndex
'---------------------------------------
End If
Next
ReDim Preserve MyArr(1 To MyArrIndex)
sh.Copy
Set wb = ActiveWorkbook
'--------------------------------------------------------
'Set wb = ActiveWorkheets
'Set wb = Worksheets("envoi-resultat")
'& ThisWorkbook.Name & " " & strdate & ".xls"
'-------------------------------------------------------
With wb
.SaveAs sh.Name & " de " _
& strdossier & ".xls"
.SendMail MyArr, _
"résultat d'adjudication" '"ici, C'est la
ligne objet"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End If
Next sh
Application.ScreenUpdating = True
End Sub

Comment puis-je envoyer à un groupe pré défini dans outlook et repris
sous le nom de Résultat d'adjudications pour lequel le type de
messagerie défini par outlook est : MAPIPDL
Merci de suivre
Freedo


Bonjour daniel,
merci pour ta reponse, mais où modifier ma macro pour insérer ta
solution ?
merci de suivre
Freedo

freedo
Le #5175401
On 4 mar, 18:03, "Daniel.C"
Actuellement, ta macro envoie le classeur à une liste de destinataires. Que
veux-tu faire ? Evoyer le message au groupe et à la liste de destinatair es ?
Quel est le nom du groupe ?
Daniel
"freedo"
On 4 mar, 15:21, "Daniel.C"




Bonjour.
Si tu envoies à un groupe de destinataires, la syntaxe est :
.SendMail "Nomdugroupe", "objetdu mail"
Daniel
"freedo"
Bonjour à Toutes et à Tous,
pour envoyer une feuille excel de mon classeur à plusieurs intérress és
par e-mail repris dans une liste de tableau j'utilise la macro
suivante :
Sub Mail_Every_Worksheet()
Dim sh As Worksheet
Dim wb As Workbook
Dim strdossier As String
Dim MyArrIndex As Long
Dim E_Mail_Count As Long
Dim cell As Range
Dim MyArr() As String
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("f61").Value Like "*@*" Then
Range("D4").Select
'-------------------------------------------
'strdate = Format(Now, "dd-mm-yy h-mm-ss")
'-------------------------------------------
strdossier = Selection
E_Mail_Count =
sh.Columns("f").Cells.SpecialCells(xlCellTypeConstants).Count
ReDim MyArr(1 To E_Mail_Count)
MyArrIndex = 1
For Each cell In
sh.Columns("f").Cells.SpecialCells(xlCellTypeConstants)
If cell Like "*@*" Then
MyArr(MyArrIndex) = cell.Value
MyArrIndex = MyArrIndex + 1
'----------------------------------------
'MyArrIndex = MyArrIndex
'---------------------------------------
End If
Next
ReDim Preserve MyArr(1 To MyArrIndex)
sh.Copy
Set wb = ActiveWorkbook
'--------------------------------------------------------
'Set wb = ActiveWorkheets
'Set wb = Worksheets("envoi-resultat")
'& ThisWorkbook.Name & " " & strdate & ".xls"
'-------------------------------------------------------
With wb
.SaveAs sh.Name & " de " _
& strdossier & ".xls"
.SendMail MyArr, _
"résultat d'adjudication" '"ici, C'est la
ligne objet"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End If
Next sh
Application.ScreenUpdating = True
End Sub

Comment puis-je envoyer à un groupe pré défini dans outlook et rep ris
sous le nom de Résultat d'adjudications pour lequel le type de
messagerie défini par outlook est : MAPIPDL
Merci de suivre
Freedo


Bonjour daniel,
merci pour ta reponse, mais où modifier ma macro pour insérer ta
solution ?
merci de suivre
Freedo- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Bonjour Daniel,
En fait actuellement j'utilise une liste qui se trouve sur la même
feuille de f61 à f...
et j'aurais voulu utiliser un groupe défini dans les contacts de
Outlook qui est enregistré
sous le nom de "résultat d'adjudication" et pour lequel outlook à
défini sous le "type de
messagerie" est : MAPIPDL (c'est le terme qui apparait dans le menu des contacts)
Merci de suivre


Freedo


Daniel.C
Le #5175381
Bonjour.
Essaie :
.SendMail "résultat d'adjudication", "objetdumessage"
Daniel

Bonjour Daniel,
En fait actuellement j'utilise une liste qui se trouve sur la même
feuille de f61 à f...
et j'aurais voulu utiliser un groupe défini dans les contacts de
Outlook qui est enregistré
sous le nom de "résultat d'adjudication" et pour lequel outlook à
défini sous le "type de
messagerie" est : MAPIPDL (c'est le terme qui apparait dans le menu des
contacts)
Merci de suivre


Freedo


Publicité
Poster une réponse
Anonyme