Macro excel envoi mail avec fichier joint

Résolu

Utilisateur anonyme -
Utilisateur anonyme - 19 mai 2010 à 09:48

Bonjour,

J'aimerai envoyer automatiquement une feuille d'un fichier Excel via Outlook.
J'utilise la macro suivante que j'ai récupérée d'une autre discussion.

Sub SendMail()
' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array("toto@ss.ch", "xxx@sss.ch"), Subject:="Test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With

J'ai une liste de destinataire qui varie selon la feuille, j'ai donc essayé de modifier cette macro ainsi sachant que l'email du destinataire est inscrit sur la feuille 1 cellule M1 :

Function SendMail()
Dim y As String
Dim x As Integer
y = Sheets(1).Range("M1").Value
x = Sheets(1).Range("K1").Value
' Copy the sheet(1)
ThisWorkbook.Sheets(x).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:="y", Subject:="test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
' Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value
End Function

Mais ça ne marche pas...

Pourriez-vous m'indiquer ce que je dois modifier s'il vous plaît.

Merci d'avance.

Elsie

A voir également:

Vba envoyer mail avec pièce jointe
Mail delivery system - Astuces et Solutions
Pièce d'identité - Accueil - Services publics
Gmail envoyer un mail - Guide
1 pièce jointe - Guide
Messenger impossible d'envoyer en jaune - Forum Facebook Messenger

4 réponses

Réponse 1 / 4

Utilisateur anonyme

Bonjour,

Cette macro marche parfaitement, j'ai du faire une erreur hier.

Private Sub Bouton6_QuandClic()
Dim y, chemin, nom As String
Dim x As Integer
Dim ol As Object, myItem As Object
chemin = ActiveWorkbook.Path
y = Sheets(1).Range("M1").Value
x = Sheets(1).Range("K1").Value
nom = "contrôle " & Sheets(x).Name
ThisWorkbook.Sheets(x).Copy
ActiveWorkbook.SaveAs chemin & "\" & nom
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = y
myItem.Subject = "envoi d'un fichier attaché"
myItem.Body = "Bonjour, " & Chr(10) & "Vous trouverez ci-joint le tableau de Contrôle pour votre service. " & Chr(10) & "Merci de bien vouloir me faire un retour avec vos corrections. " & Chr(10) & "Cordialement, " & Chr(10) & "Elsie "
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send
Set ol = Nothing
ActiveWorkbook.Close
End Sub

Merci beaucoup pour ton aide !!
Elsie

Réponse 2 / 4

Utilisateur anonyme

Re,

Pour envoyer ma feuille j'utilise cette macro, que faut `il modifier afin de pouvoir ajouter un texte avant d'envoyer le mail.

Function SendMail()
Dim y As String
Dim x As Integer
y = Sheets(1).Range("M1").Value
x = Sheets(1).Range("K1").Value
' Copy the sheet(1)
ThisWorkbook.Sheets(x).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:=y, Subject:="test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End Function

Merci d'avance

Elsie

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Je n'utilise pas Outlook, donc personnellement je ne me suis jamais penché sur ce problème...
Regarde cette discussion

Utilisateur anonyme

Merci !
Je regarde tout ça

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Salut,
M'en voulant de t'avoir plantée comme une vieille chaussette hier... J'ai fait des recherches ce matin et trouvé cette discussion ma foi fort instructive.
Plein de bonnes solutions, des leçons à tirer également. Par exemple : tu as regardé du côté publipostage par mail de Word ? Est une très bonne remarque.
Sinon le plus facile à mettre en oeuvre reste :

Private Sub CommandButton1_Click()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem

    Set OlApp = CreateObject("Outlook.application")
    Set OlItem = OlApp.CreateItem(olMailItem)

    With OlItem
        .To = "xxxxxxx@xxxxx.xx"
        .CC = "xxxxx.xxxx@xxxxxxx.xxx"
        .Subject = "Test"
        .BodyFormat = olFormatHTML
        .HTMLBody = "<HTML><body>Ce <b>mot</b> est en gras.<p>" _
        & "Ce " & "<u>mot</u> est souligné.<p>" & "Ce " _
        & "<FONT COLOR=RED>mot</FONT> est en rouge.<p>" _
        & "Ce " & "<i>mot</i> est en italique.<p>" & _
        "<b><i><u><font color=green>Ce format est vert, gras, italique et souligné !</font></u></i></b></body><HTML>"
        .Display 'Ou .Send
    End With
End Sub

en activant la référence Microsoft Outlook 11.0 Object Library, puis un CommandButton sur la feuille voulue
Je répète bien que tout ceci n'est pas de moi, mais si cela peux t'aider...

Utilisateur anonyme

Salut

Merci pour ton aide

Elle est bien cette macro elle permet d'ouvrir Outlook pour y envoyer un message directement à partir d'Excel....

Mais du coup je n'ai plus mes feuilles Excel envoyées automatiquement selon correspondant...

En fait le texte que je souhaiterais ajouter serait le même pour tous ...un petit message afin qu'ils ne reçoivent pas uniquement le fichier ... genre ; c'est tout, ok ?!

Elsie

Utilisateur anonyme

(Comment ça se fait que cette discussion soit en résolue??)

Réponse 4 / 4

Utilisateur anonyme

Merci !!

Dites moi il y a moyen pour que la fenêtre "un programme essaye d'envoyer un message électronique en votre nom ...." ne s'affiche plus ?

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Là je ne sais pas. Il s'agit d'une alerte Windows...

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

pour cette alerte, regarde ici la réponse de MichelXLD du 05/08/2005, 16h48
Bon courage

Discussions similaires

macro excel envoi Pièce jointe en pdf

macro excel envoi email avec piéce jointe

Macro : envoyer PDF en PJ Outlook

Envoi mail automatique avec fichier joint PDF

VBA pour Excel pour les nuls

Macro enregistrer en PDF

Votre réponse

Discussions similaires