Macro envoi mail

[noel33]

Bonjour à tous,

Je sèche sur cette macro:

Envoyer un fichier xlms en mail outlook : j'ai une erreur inattendue!

Quelqu'un a une solution SVP?

 

[Lone-wolf]

Bonjour noel

La macro faut la mettre dans le module standard et non dans le module de la feuille. NomFichier.ext, ce n'est pas plutôt NomFichier.txt ?? . Et "C:\Chemin\NomFichier.ext", est-tu sûr que le chemin est correct?? . Il faut aussi ajouter End Sub.

 

[noel33]

Bonjour noel

La macro faut la mettre dans le module standard et non dans le module de la feuille. NomFichier.ext, ce n'est pas plutôt NomFichier.txt ?? . Et "C:\Chemin\NomFichier.ext", est-tu sûr que le chemin est correct?? . Il faut aussi ajouter End Sub.

 

[noel33]

Bonjour Lone-Wolf,

Je ne sais pas mettre dans le module, les noms de fichier c'est Ok, le End Sub c'est ça qui manquait, par contre ça me ferme Outlook...

 

[Lone-wolf]

Re

Tu as bien un module non? Tu fait un couper-coller du code, c'est tout simple non?.

Si tu veux que Outlook reste visible, il faut supprimer ObjOutlook.Quit.
Si tu veux visualiser le message avant de l'envoyer, il faut mettre en commentaire .Send, comme ceci

With ObjectMail
.Display
'.Send
End With

 

[noel33]

Re

Tu as bien un module non? Tu fait un couper-coller du code, c'est tout simple non?.

Regarde la pièce jointe 990526

Si tu veux que Outlook reste visible, il faut supprimer ObjOutlook.Quit.
Si tu veux visualiser le message avant de l'envoyer, il faut mettre en commentaire .Send, comme ceci

With ObjectMail
.Display
'.Send
End With

 

[noel33]

Extra, cela marche.

Deuxième étape.....

J'aimerai que le sujet du mail soit du genre
"comte rendu du " avec la date de l'envoi...

et que dans le texte j'ai les références qui auraient été inscrites dans les cellules B11 à B30...

sais tu comment faire STP?

D'avance merci,

N.

 

[Lone-wolf]

Re

Un essai comme ceci

Option Explicit
'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Sub Test()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim i As Long, str As String, corps As String, _
dest As String, Nom_Fichier As String

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    '---------------------------------------------------------
    'Exemple pour envoyer un classeur en pièce jointe
    'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
    'If Nom_Fichier = "Faux" Then Exit Sub
    '---------------------------------------------------------
    'Ou bien entrer le path et nom du fichier autrement
    Nom_Fichier = "C:\Chemin\NomFichier.ext"
    If Nom_Fichier = "" Then Exit Sub
    '---------------------------------------------------------
    With Feuil1
        For i = 11 To 30
            str = str & .Cells(i, 2) & vbLf
        Next i
    End With

    dest = Sheets("Data").Range("o2").Value 'adresse email du destinataire
    corps = "Bonjour," & vbLf & vbLf & "Voici les références: " & vbLf & vbLf & str

    With oBjMail
        .To = dest   'le destinataire
        .Subject = "Comte rendu du " & Format(Date, "dd mmmm yyyy")   ' l'objet du mail
        .Body = corps  'le corps du mail ..son contenu
        '.Attachments.Add Nom_Fichier    ' "C:\Data\essai.txt"  ou Nomfichier
        .Display  'ici on peut supprimer pour l'envoyer sans vérification
        '.Send
    End With
    'ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
End Sub

 

[noel33]

Extra, cela fonctionne ... mais !

J'aurai en fait aimé que dans le Mail il y ai écrit :

MSN puis Référence puis TYPE....


Oui je sais je demande beaucoup...


Je pensais y arriver mais .... non !

D'avance merci!

 

[Lone-wolf]

Re

modifie comme ceci:

With Feuil1
  For i = 11 To 30
  str = str & .Cells(i, 4) & "   " & .Cells(i, 2) & "   " & .Cells(i, 7) & vbLf
  Next i
End With

 

[noel33]

Génial,

et si dans le sujet :

.Subject = "Comte rendu du " & Format(Date, "dd mmmm yyyy")

je veux rajouter la valeur de la ligne O2 ?

(normalement après je t"embete plus ...)

 

[Lone-wolf]

Re

Si c'est le nom de la personne, tu met en P2: Toto AMOTO par exemple; ensuite tu déclare la variable sujet As String

With Feuil1
        For i = 11 To 30
            str = str & .Cells(i, 4) & "    " & .Cells(i, 2) & "           " & .Cells(i, 7) & vbLf
        Next i
End With

With Sheets("Data")
          dest = .Range("o2").Value 'adresse email du destinataire
          sujet = "Comte rendu du " & Format(Date, "dd mmmm yyyy") &  " par " & .Range("p2").Value
End With

corps = "Bonjour," & vbLf & vbLf & "Voici les références: " & vbLf & vbLf & _
    "MSN  RÉFÉRENCE  TYPE" & vbLf & str

With oBjMail
          .To = dest
          .Subject = sujet
         .Body = corps
End with

 

[noel33]

Désolé mais il y a un message d'erreur:

Erreur d'execution '438" ...

 

[noel33]

Je te renvoie le fichier

Mdp HLQ

 

[Lone-wolf]

Re

Normal qu'il y aie une erreur, regarde bien le dernier message que j'ai posté.