XL 2013 envoie tableau dans corp du mail vba

David62800

XLDnaute Nouveau
bonjour
je cherche a créer une macro pour faire l'envoie un tableau en 1 clic
voici mon code actuel avec Outlook mais mais ca bloque avec ma version Outlook apparemment
est il possible de modifier mon code pour que l'envoie ce fait avec Gmail (page internet) en y incluant directement l' identifiant et mot de passe
merci de votre aide
si vous avec une autre solution pour un envoie du tableau avec enregistrement et envoie en pièce jointe je suis preneur aussi

voici mon code actuel

Sub EnvoiMail()

'declaration des variables
Dim Mafeuille As Worksheet ' la feuille contenant le tableau de board
Dim NbLigne As Integer ' Nombre de lignes a recuperer
'Affectation des variables
Set Mafeuille = ThisWorkbook.Sheets("Dashboard") 'on definit le nom de la feuille
'desactivation du rafraichissements de l'ecran
Application.ScreenUpdating = False
'on calcule le nombre de ligne a prendre dans la feuille a partir de la colonne A
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
'on selectione la plage a copier
Mafeuille.Range("A1:O" & NbLigne).Select
'avec l'objet MailEnvoie on envoie dans le corps du mail
With Selection.Parent.MailEnvelope.Item
.to = Mafeuille.Range("R1").Value 'destinataire direct
.co = Mafeuille.Range("R3").Value 'destinataire en copie
.bcc = "" 'destinataire en copie invisible
.Subject = Mafeuille.Range("R2").Value 'objet du mail
.attachements.Add "CheminFichier" 'piece jointe
.Send 'envoie du mail
.display 'affichage du mail
End With

'confirmation d'envoie du mail
MsgBox "Votre mail a été envoyé avec succé.", vbInformation + vbOKOnly, "Confirmation envoie mail"

'activation du rafraichissements de l'ecran
Application.ScreenUpdating = True
End Sub
 

Pièces jointes

  • test envoie mail.xlsm
    33.7 KB · Affichages: 8

David62800

XLDnaute Nouveau
Bonjour,

Vos donnees dest etc sont en colonne P pas R
Votre tableau vous le voulez dans le corps du Mail ou dans un classeur?
Y a pas de corps de message!
Bonjour Staple,le filoui les données sont a déplacer de p a r
Pour l envoie du tableau peu importe dans le corps du mail ou en pièce jointe le principal c'est que ça fonctionne et que j arrive a comprendre le code simplement
Le corps du mail serait certainement en ligne R4 R5 R6
merci pour l aide
David
 

David62800

XLDnaute Nouveau
Bonjour le fil

En guise de source d'inspiration ou de tutoriel, voir ce que propose @Dudu2 dans les tutoriaux du forum
Bonjour oneida,le filoui les données sont a déplacer de p a r
Pour l envoie du tableau peu importe dans le corps du mail ou en pièce jointe le principal c'est que ça fonctionne et que j arrive a comprendre le code simplement
Le corps du mail serait certainement en ligne R4 R5 R6
merci pour l aide
David
 

patricktoulon

XLDnaute Barbatruc
bonjour
pour mettre une table dans le corps d'un mail outlook
il y a moult moyen
perso depuis que je connais outlook (et c'est pas hier)
j'ai toujours travaillé en html même si aujourd'hui on peut travailler le body avec les même outils que word
et que beaucoup de personne utilise ce procédé
(lire ma devise dans ma signature)

j'ai donc conçu diverses méthode pour convertir une plage de cellules en html dynamiquement
mais il y en a une pour les gros fainéants qui n'ont pas envie d’apprendre le DOM
c'est d'utiliser un webbrowser dans un userform (et le must!!!! pas besoins de l'afficher si l'on veut)
j'ai donc un classeur demo que je propose a qui en veut bien
capable de me transformer une colonne en paragraphe html
capable de transformer une cellule contenant plusieurs ligne de texte en pragraphe html
bien sur une plage en table html ca va de soit
etc..etc...
l'astuce ici est d'utiliser un userform comme une classe et accessoirement (c'est ça qui est rigolo dans l'histoire) comme un userform

démonstration
1696164011280.png

demo.gif


allez on teste outlook

demo.gif
 

Pièces jointes

  • range to table html 2022 return with not show form.xlsm
    59.3 KB · Affichages: 14

David62800

XLDnaute Nouveau
bonjour
je ne trouve pas sur le forum un code vba simple pour faire un envoie avec gmail ou en utilisant https://outlook.live.com/(car mon application outlook plante a chaque fois)
exemple soit
envoyer le tableau de la feuille dans le corp du message avec les element en R1 R2 R3 etc
envoyer la feuille en piece jointe
une personne aurais ca dans ces archives ?
 

Pièces jointes

  • test envoie mail.xlsm
    32.5 KB · Affichages: 4
  • test envoie mail.xlsm
    32.5 KB · Affichages: 2

David62800

XLDnaute Nouveau
bonjour
pour mettre une table dans le corps d'un mail outlook
il y a moult moyen
perso depuis que je connais outlook (et c'est pas hier)
j'ai toujours travaillé en html même si aujourd'hui on peut travailler le body avec les même outils que word
et que beaucoup de personne utilise ce procédé
(lire ma devise dans ma signature)

j'ai donc conçu diverses méthode pour convertir une plage de cellules en html dynamiquement
mais il y en a une pour les gros fainéants qui n'ont pas envie d’apprendre le DOM
c'est d'utiliser un webbrowser dans un userform (et le must!!!! pas besoins de l'afficher si l'on veut)
j'ai donc un classeur demo que je propose a qui en veut bien
capable de me transformer une colonne en paragraphe html
capable de transformer une cellule contenant plusieurs ligne de texte en pragraphe html
bien sur une plage en table html ca va de soit
etc..etc...
l'astuce ici est d'utiliser un userform comme une classe et accessoirement (c'est ça qui est rigolo dans l'histoire) comme un userform

démonstration
Regarde la pièce jointe 1180145
Regarde la pièce jointe 1180146

allez on teste outlook

Regarde la pièce jointe 1180147
bonjour oui je l'ai telecharger mais j'ai des probeme avec outlook il a du mal a se connecter meme sur un second pc
peut on le faire avec gmail ?

car ca bloque la
Set mItem = OutLook.CreateItem(0)


ou alors il faudrait passer par outlook mais page web est ce possible?
 

David62800

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc
c est bizard mon appli outlook ne se connecte pas bloqué alors que sur une page web ca fonctionne
au de ton fichier ca devrait fonctionner a voir ton gif
ets il possible de passer par https://outlook.live.com/ ?
re
@David62800 non car Ie n'est plus suivie

@Staple1600
cdo pareil marche pas tout le temps

le webbrowser c'est pas compliqué quand tu sais ou chercher pas la peine de te mettre la rate au cour bouillon
j'avais fait un pdf pour 2013 et les versions sups version clickandrun et autres que j'avais posté pour un demandeur
 

Discussions similaires

Réponses
2
Affichages
425
Réponses
17
Affichages
1 K

Statistiques des forums

Discussions
313 230
Messages
2 096 395
Membres
106 601
dernier inscrit
Virgin766