Envoie de mail + Corp + Pieces Jointe + ObBot par apport au tableau

[Bens7]

Bonjour a tous !!
Je reviens avec un probleme ou malheuresement je n'y connias rien c'est le Macro !! je vous met un fichier en pieces jointes vous allez voir le probleme est bien expliquer mais impossible our moi de trouver la reponsse c'est au dela de mes competences !!MERCI

Voila j'aimerais lorsque je clik quelque part (ou avec un fichier .bat relier a ce classeur eventuelement) envoyer tous les mails d'un coup selon cette forme:
exemple:
- Pieces jointes: 15345.pdf en pieces jointes (se trouvant dans: D:\MON JOB\Facture\PDF)
- L'Objet: FACTURE 15345
- Corp du Mail: Ci joint votre facture

Attention :
1) Les Sujet peuvent changer selon ma volonte
2) Les Messages peuvent changer selon ma volonte
3) Aucune limite de Ligne ni de carachtere
4) Mon adresse Mail doit figurer: mon.job@hotmail.com

P.S: Excel 2010 je me debrouille Macro jamais fait !!! Aucune idee ... MERCI!!!

 

[Bens7]

Re : Envoie de mail + Corp + Pieces Jointe + ObBot par apport au tableau

Oui merci j'ai reussi pour les collones par contre en trvaillant avec le fichier je me suis rendu compte d'une autr erreur:
Lors du Nettoyage il arrive parfois que dans la collone A;B;C je nettoie moi meme des notes manuellement et si je lance le nettoayage alors la ca remtrie pas le tous vu que ya un espace vide

 

[Yaloo]

Re : Envoie de mail + Corp + Pieces Jointe + ObBot par apport au tableau

Bonjour Bens,

et si je lance le nettoayage alors la ca remtrie pas le tous vu que ya un espace vide

Désolé, mais je n'ai rien compris, arrives-tu, toi-même, à te relire ??????

Martial

 

[Bens7]

Re : Envoie de mail + Corp + Pieces Jointe + ObBot par apport au tableau

Bonjour Bens,



Désolé, mais je n'ai rien compris, arrives-tu, toi-même, à te relire ??????

Martial

lolllll
alors exemple
A2:C7 : remplie
A8:C8 : vide
A9:C18 : remplie

NETTOYAGE > le nettoyage et retriage s'effectie juste sur A9:C18

 

[Bens7]

Re : Envoie de mail + Corp + Pieces Jointe + ObBot par apport au tableau

Yaloo Bonjour j'ai essayer par moi meme (pnsant reussir loll) a combiner le code du dernier fichier que tu ma envoyer dans une Userform sans passer par les 4 boutons sur la Feuil BST
J'ai donc creer un Userform sur un nouvelle onglet

Le userform s'occupe de remplir les 3 premieres collones (note ne sert a rien pour l'instant)
et tes 4 boutons sont sur la droite j'ai essayer donc d'adapter le code pour faire reference a une nouvelle Feuil: NOTE (anciennement BST)
Les Mails ca amrche mais les courriers sa bug ca ouvre le mail mais rien ne se copie dans le tableau si tu peux je ter un coup d'oeil ! ( je sais pas si je suis clair en gros les meme fonctions que plus haut mais le tableau se trouve dans une autre feuil et le Userform dans unue autre)
voici le code :

Private Sub CommandButton3_Click() 'COURRIER OU VERIF
Dim OutApp As Object, OutMail As Object
Dim Debut$, Fin$
Dim rng As Range
Dim i&, j&
  With Application
    .EnableEvents = 0
    .ScreenUpdating = 0
  End With
   ' Sheets.Add After:=Sheets(Sheets.Count) <<<< ORIGINAL
  Sheets("NOTE").Add After:=Sheets("NOTE")(Sheets("NOTE").Count)<<<<<<FAUX
  j = 2
  With Sheets(1)

    .Rows(1).Copy Sheets("NOTE").Rows(1)
    For i = 2 To .[A65536].End(xlUp).Row
      If .Sheets("NOTE").Cells(i, 1) = "COURRIER" Then 'Or .Sheets("NOTE").Cells(i, 1) = "VERIF"' POUR 2 CRITERE
        Sheets("NOTE").Rows(i).Copy Sheets("NOTE").Rows(j)
        j = j + 1
      End If
    Next
  End With
  
  Set rng = Nothing
  On Error Resume Next
  Set rng = Sheets("NOTE").Range("A1:C" & [A65536].End(xlUp).Row)
  On Error GoTo 0
  If rng Is Nothing Then
    MsgBox "The selection is not a range or the sheet is protected" & _
      vbNewLine & "please correct and try again.", vbOKOnly
    Exit Sub
  End If
  Debut = "Bonjour , <BR>.<BR>"
  Fin = "<BR>.<BR>"
    
  Set OutApp = CreateObject("Outlook.Application")
  OutApp.Session.Logon
  Set OutMail = OutApp.CreateItem(0)
    
  On Error Resume Next
  With OutMail
    .To = "monjob@hotmail.com"
    .CC = ""
    .BCC = ""
    .Subject = "COURRIER DU " & Sheets("NOTE").Cells(1, 1)
        
    .HTMLBody = Debut & RangetoHTML(rng) & Fin
        
    .Display
      '.Send
  End With
  On Error GoTo 0
 
  Set OutMail = Nothing
  Set OutApp = Nothing
  Application.DisplayAlerts = 0
  Sheets("NOTE").Delete

MsgBox "COURRIER ENVOYES"
  With Application
    .EnableEvents = -1
    .ScreenUpdating = -1
    .DisplayAlerts = -1
  End With
End Sub

en gros sa bug la :
Sheets.Add After:=Sheets(Sheets.Count) <<<< ORIGINAL
Sheets("NOTE").Add After:=Sheets("NOTE")((Sheets("NOTE").Count)) <<< faux

 

[Yaloo]

Re : Envoie de mail + Corp + Pieces Jointe + ObBot par apport au tableau

Bonjour Bens,

Pourrais-tu mettre le fichier sur lequel tu travailles ? Parce que je ne sais plus sur quelle version tu travailles.

A+

Martial

 

[Bens7]

Re : Envoie de mail + Corp + Pieces Jointe + ObBot par apport au tableau

Voici le fichier final les bouton ce trouve dnas la feuille BST (donc les donnees aussi) j'aimerais les bouton dans une autre feuille et les note dams ine Feuil apeller NOTE que ke je puis juste copier le code dans le fichier final