Microsoft 365 Envoi par mail: 1 adresse mail par onglet Excel

D

danielco

XLDnaute Accro

• 26 Août 2021

• #2

Bonjour,

Où trouver l'adresse ou envoyer où envoyer l'onglet ? dans une cellule de la feuille ? Comment veux-tu l'envoyer ? En pièce jointe où en copiant une plage de cellules dans le corps du message ?

Daniel

 

Vote positif 0 Vote négatif

C

Comptable 1

XLDnaute Nouveau

• 26 Août 2021

• #3

Bonjour,

Je pensais mettre l'adresse mail dans une cellule de l'onglet. Mais je peux m'adapter.
J'aimerais que le fichier s'envoi en pièce jointe, en PDF si possible.

Merci

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 26 Août 2021

• #4

Un exemple de macro avec le destinataire en A1

VB:

Sub Mail()
  Dim olApp As Object, M As Object, Sh As Worksheet, Wbk As Workbook, Txt As String
  Set olApp = CreateObject("Outlook.application")
  Set M = olApp.CreateItem(olMailItem)
  For Each Sh In ThisWorkbook.Sheets
    Sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Sh.Name, Quality:= _
      xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
    With M
      .Subject = "Objet"
      '.Body = "Body"
      .Recipients.Add [A1].Value
      .attachments.Add ThisWorkbook.Path & "\" & Sh.Name & ".pdf"
'      .display
      .Send
    End With
  Next Sh
End Sub

Daniel

 

Vote positif 0 Vote négatif

C

Comptable 1

XLDnaute Nouveau

• 26 Août 2021

• #5

Super merci beaucoup !

Je vais regarder quelques tutos car je n'ai jamais utilisé de Macro.

En tout cas merci pour l'aide

 

Vote positif 0 Vote négatif

C

Comptable 1

XLDnaute Nouveau

• 27 Août 2021

• #6

Bonjour,

J'ai essayé la macro cité plus haut.
Cependant cela envoi à l'adresse mail saisie en A1 de la feuille 1
- un mail avec en pièce jointe la feuille 1
- un mail avec en pièce jointe la feuille 2

Est ce possible d'envoyer un mail séparément, à l'adresse mail de la feuille 1 avec pièce jointe feuille 1, et à l'adresse mail de la feuille 2 avec pièce jointe de la feuille 2 ? Et ainsi de suite avec toute mes feuilles ?

Merci par avance

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 27 Août 2021

• #7

Bonjour,
Oups, autant pour moi. Essaie :

VB:

Sub Mail()
  Dim olApp As Object, M As Object, Sh As Worksheet, Wbk As Workbook, Txt As String
  Set olApp = CreateObject("Outlook.application")
  For Each Sh In ThisWorkbook.Sheets
    Sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Sh.Name, Quality:= _
      xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
    Set M = olApp.CreateItem(olMailItem)
    With M
      .Subject = "Objet"
      '.Body = "Body"
      .Recipients.Add Sh.[A1].Value
      .attachments.Add ThisWorkbook.Path & "\" & Sh.Name & ".pdf"
'      .display
      .Send
    End With
  Next Sh
End Sub

 

Vote positif 1 Vote négatif

Solution

C

Comptable 1

XLDnaute Nouveau

• 27 Août 2021

• #8

Super !! C'est exactement ce dont j'avais besoins.
Merci beaucoup

Bonne journée

 

Vote positif 0 Vote négatif

C

Comptable 1

XLDnaute Nouveau

• 1 Septembre 2021

• #9

Bonjour,

De nouveau une question pour mon envoi automatique de mail

Est ce possible de rajouter une condition : si A1 est vide alors imprimer la feuille ; sinon envoyer par mail ?

Aussi, quand j'envoi par mail, Outlook me demande pour chaque mail une autorisation, peut on enlever ce message ?

Merci d'avance

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 1 Septembre 2021

• #10

Comptable 1 à dit:

Bonjour,

De nouveau une question pour mon envoi automatique de mail

Est ce possible de rajouter une condition : si A1 est vide alors imprimer la feuille ; sinon envoyer par mail ?

Aussi, quand j'envoi par mail, Outlook me demande pour chaque mail une autorisation, peut on enlever ce message ?

Merci d'avance

Cliquez pour agrandir...

Bonjour,

Aussi, quand j'envoi par mail, Outlook me demande pour chaque mail une autorisation, peut on enlever ce message ?

Cliquez pour agrandir...

Quel est le libellé exact du message ? sinon remplace le code par celui-ci :

VB:

Sub Mail()
  Dim olApp As Object, M As Object, Sh As Worksheet, Wbk As Workbook, Txt As String
  Set olApp = CreateObject("Outlook.application")
  For Each Sh In ThisWorkbook.Sheets
    If Sh.[A1] <> "" Then
      Sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Sh.Name, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
      Set M = olApp.CreateItem(olMailItem)
      With M
        .Subject = "Objet"
        '.Body = "Body"
        .Recipients.Add Sh.[A1].Value
        .attachments.Add ThisWorkbook.Path & "\" & Sh.Name & ".pdf"
  '      .display
        .Send
      End With
    Else
      Sh.PrintOut
    End If
  Next Sh
End Sub

Daniel

 

Vote positif 0 Vote négatif

C

Comptable 1

XLDnaute Nouveau

• 1 Septembre 2021

• #11

Bonjour,

Super ça marche ! Merci beaucoup !

J'ai le message suivant qui apparaît :

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 1 Septembre 2021

• #12

Ca c'est galère. Regarde cette page à la section "Empêcher cet avertissement de sécurité de s’afficher à nouveau" :
https://support.microsoft.com/fr-fr...-ma-part-86cc5ece-379e-45e3-b8eb-3fefba09946b
Daniel

 

Vote positif 0 Vote négatif

C

Comptable 1

XLDnaute Nouveau

• 1 Septembre 2021

• #13

D'accord, merci

 

Vote positif 0 Vote négatif

C

Comptable 1

XLDnaute Nouveau

• 6 Septembre 2021

• #14

Bonjour,

J'ai un soucis avec mon envoi de mail. Tout fonctionnait très bien et maintenant j'ai un message d'erreur :


Quand je fais débogage j'ai ça:



Je ne comprends pas pourquoi j'ai un problème avec les pièces jointe

Merci d'avance pour le coup de mains !!!

Bonne journée

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 6 Septembre 2021

• #15

Bonjour,
Ca veut dire que le fichier PDF ne se trouve pas dans le même dossier que le classeur, ou que, pour une raison quelconque, il n'a pas été créé. Peux-tu vérifier ?
Daniel

 

Vote positif 0 Vote négatif