envoie tableau par mail bloque dans la boite d'envoie

[Bens7]

Bonjour a tous !
J'ai trouver un code sur le forum :

Sub COURRIER()
ActiveSheet.Range("A1:C40").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les données ..."
    .Item.To = "mon.adresse@hotmail.com"
    .Item.Subject = "COURRIER"
    .Item.Send
End With
End Sub

le probleme c'est que les envoie reste bloque dans la boite d'envoie Outlook je suis obliger d'ouvrire Outlook et de les envoyer manuellement mais si Outlook est ouvert alors la ca envoie direct pouriez vous m'aidez ? Merci !
Ps1: (ne pas me dire voir dans la configuration d'Outlook car je sais pas ou chercher lolll)
Ps2: J'y connais rien VBA donc si ya un code a rajouter ou modifer mettez le direct merci

 

[Yaloo]

Re : envoie tableau par mail bloque dans la boite d'envoie

Bonjour Bens,

Tu as la réponse ici

A+

 

[Bens7]

Re : envoie tableau par mail bloque dans la boite d'envoie

bonjour Yaloo oui c mon ancien post mais je n'arrive pas extraire juste le code pour les courrier pourez tu me colez dans ce post
merci!!

 

[Yaloo]

Re : envoie tableau par mail bloque dans la boite d'envoie

Re,

Tu veux juste les cellules A1:C40 car ce n'était pas ce que tu voulais sur l'autre demande.

Il fallait faire une sélection en fonction de certaines conditions.

A+

Martial

 

[Bens7]

Re : envoie tableau par mail bloque dans la boite d'envoie

oui mais sur l'autre demande ca marche pas pourrais tu me scinder les 3 codes pour que je puissent refaire un fichier proprr
1: envoie mail au client
2 : envoie du tableau
3 impression

 

[Yaloo]

Re : envoie tableau par mail bloque dans la boite d'envoie

On repart du même fichier ?

 

[Yaloo]

Re : envoie tableau par mail bloque dans la boite d'envoie

Avec le même fichier, j'ai divisé la macro en 3 avec 3 boutons distinctes.

A+

Martial

PS : si ça ne fonctionne pas, indique à quel endroit ainsi que le message d'erreur.

 

[Bens7]

Re : envoie tableau par mail bloque dans la boite d'envoie

top je te dit demain merci en tous ca

 

[Bens7]

Re : envoie tableau par mail bloque dans la boite d'envoie

Bon je reviens au premier fichier reussi a cinder et regrouper les actions Mail et Courrier comme dans le premier fichier qui bugg (voir pieces jointes) donc je le prefere avec les macro que le nouveaux j;arrive pas a comprendre comment tu a fait ca !
Donc ce qu'il me faut c'est juste un macro pour imprimer le fichier 15329 collone 4 qui se trouve dans D://MONJOB SA/Facture/
meme si il faut je metterais dans la collone 15329.jpg si c'est plus simple

 

[Bens7]

Re : envoie tableau par mail bloque dans la boite d'envoie

Ha et si tu peux jetais un oeil aussi au fichier en peices jointes j'avais pas pensser au nettoyage

 

[Yaloo]

Re : envoie tableau par mail bloque dans la boite d'envoie

Bonjour Bens,

Pour imprimer juste un fichier .jpg, il faut utiliser

Fichier = "D://MONJOB SA/Facture/" & Cells(i, 2) & ".jpg"
Shell ("C:\Windows\SysWOW64\mspaint.exe /p " & Fichier)

Il faut bien sûr adapter le chemin pour accéder au logiciel mspaint.exe

Pour la suppression des lignes j'y regarde et te dis ce qu'il en est dès que possible.

A+

Martial

 

[Yaloo]

Re : envoie tableau par mail bloque dans la boite d'envoie

Re,

Pour la suppression des lignes :

Option Explicit
Sub Suppression_ligne()
Dim Tablo(), i&
  For i = [A65000].End(xlUp).Row To 2 Step -1
    If Cells(i, 1) = "MAIL" Or Cells(i, 1) = "COURRIER" Then
      Tablo = Range(Cells(i + 1, 1), Cells(20, 3))
      Range(Cells(i, 1), Cells(19, 3)) = Tablo
    End If
  Next
End Sub

A+

Martial

 

[Bens7]

Re : envoie tableau par mail bloque dans la boite d'envoie

Martial bonjour tout d'abord je te remercie encore je vais tester tous ca aujourdhui
j'aimerai ton aide sur un autre post:
https://www.excel-downloads.com/threads/vba-logiciel-de-rapel-de-client-daujourdhui.207102/

j'essaye d'avancer dans le vba mais je trouve pas de site simple
donc pour l'instant il me manque des notions j'aurais voulu un coup de main sur ce nouveaux post
personne ne me repond !
Si tu a le temp je te remercie encore 1000 fois

 

[Bens7]

Re : envoie tableau par mail bloque dans la boite d'envoie

suoer le nettoyage !!

 

[Bens7]

Re : envoie tableau par mail bloque dans la boite d'envoie

Ya 2 problme dans l'impression
1) d'abord c'est la fenetre "IMPRIMER LES IMAGES" qu is'ouvre donc sur 50 fichier je suis obliger de cliker 50 fois imprimer. Je voudrais une impression automatique
2) j'ai un message d'erreur a chaque impression :



Merci Encore !!!

Private Sub CommandButton2_Click() 'Fax
Dim OutApp As Object, OutMail As Object
Dim Fichier$, Fichier2$, Fichier3$, Fichier4$
Dim i&, j&, impr&
  With Application
    .EnableEvents = 0
    .ScreenUpdating = 0
  End With
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Fichier2 = "D:\MONJOB SA\Contrat\" & Cells(i, 2) & ".jpg"
    Fichier3 = "D:\MONJOB SA\Contrat\" & Cells(i, 2) & " (2)" & ".jpg"

    If Cells(i, 1) = "FAX" Then
      'imprimer fichier
      impr = ShellExecute(0, "print", Fichier2, "", "", 0)
      impr = ShellExecute(0, "print", Fichier3, "", "", 0)
      'Si besoin, changer le chemin de MsPaint
      'Cela peut être : C:\Windows\System32\mspaint.exe
      Shell ("C:\Windows\System32\mspaint.exe /p " & Fichier2)
      Shell ("C:\Windows\System32\mspaint.exe /p " & Fichier3)

    End If
  Next
MsgBox "Traitement terminé"
  With Application
    .EnableEvents = -1
    .ScreenUpdating = -1
  End With
End Sub