joindre un fichier pdf pour envoi mail

Y compris Power BI, Power Query et toute autre question en lien avec Excel
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'131
Appréciations reçues : 375
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 10 août 2016, 18:11

Bonjour,

moi j'essaierai avec 2 au lieu de 1
W
Watou
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 8 août 2016
Version d'Excel : 2016

Message par Watou » 11 août 2016, 10:50

Ca marche !

merci pour tout
W
Watou
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 8 août 2016
Version d'Excel : 2016

Message par Watou » 20 janvier 2020, 14:33

Bonjour,

j'ai changé d'ordinateur et ma macro (programme VBA) ne marche plus correctement, il y a un bug ...

j'utilise le code suivant :
Option Explicit
Public Sub EnvoiAutomatiqueMail()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim adresse As String, annexe As String
Dim message As String
Dim sujet As String
Dim i As Integer
With Sheets("feuil5")
Set OutlookApp = CreateObject("outlook.application")
For i = 2 To .[A65536].End(xlUp).Row ' on passe en revue toutes les lignes de la colonne A
'objet du mail
sujet = .Cells(i, "BM")
annexe = .Cells(i, "BU")
'corps du mail
message = .Cells(i, "BN") & vbCr & .Cells(i, "BO") & vbCr & .Cells(i, "BP") & vbCr & .Cells(i, "BQ") & vbCr & .Cells(i, "BR") & vbCr & .Cells(i, "BS") & vbCr & .Cells(i, "BT")
'adresse mail destinataire
adresse = .Cells(i, "BG")
Set OutlookApp = CreateObject("outlook.application")
Set OutlookMail = OutlookApp.createitem(0)
With OutlookMail
.Subject = sujet 'sujet du mail
.To = adresse 'adresse mail destinataire
.body = message 'corps du message
.send 'encvoie le mail
.attachments.Add annexe
'.Display'on envoie le mail créé
End With
Next i 'on passe au mail suivant
End With
End Sub

quand je laisse "Display" il affiche mes mails (82 dans ce cas) et je sais cliquer sur chacun d'entre eux, avec la pièce jointe.
quand je mets .send il me met un message erreur :

Erreur d'execution '-2147221238 (8004010 a)':
l'élément a été déplacé ou supprimé

sauriez-vous m'aider ??

merci d'avance
david
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'131
Appréciations reçues : 375
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 20 janvier 2020, 14:52

bonjour,

il me semble que les instructions ne sont pas dans le bon ordre.
Option Explicit
Public Sub EnvoiAutomatiqueMail()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim adresse As String, annexe As String
Dim message As String
Dim sujet As String
Dim i As Integer
With Sheets("feuil5")
Set OutlookApp = CreateObject("outlook.application")
For i = 2 To .[A65536].End(xlUp).Row ' on passe en revue toutes les lignes de la colonne A
'objet du mail
sujet = .Cells(i, "BM")
annexe = .Cells(i, "BU")
'corps du mail
message = .Cells(i, "BN") & vbCr & .Cells(i, "BO") & vbCr & .Cells(i, "BP") & vbCr & .Cells(i, "BQ") & vbCr & .Cells(i, "BR") & vbCr & .Cells(i, "BS") & vbCr & .Cells(i, "BT")
'adresse mail destinataire
adresse = .Cells(i, "BG")
Set OutlookApp = CreateObject("outlook.application")
Set OutlookMail = OutlookApp.createitem(0)
With OutlookMail
.Subject = sujet 'sujet du mail
.To = adresse 'adresse mail destinataire
.body = message 'corps du message
.attachments.Add annexe
'.Display'on affiche le mail créé
.send 'envoie le mail
End With
Next i 'on passe au mail suivant
End With
End Sub
W
Watou
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 8 août 2016
Version d'Excel : 2016

Message par Watou » 20 janvier 2020, 15:02

merci, ça marche parfaitement
W
Watou
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 8 août 2016
Version d'Excel : 2016

Message par Watou » 31 janvier 2020, 11:53

j'ai encore une question, ce matin j'ai fait tourner la macro pour envoyer mes fichiers
tout a fonctionné mais il y a 3 adresses mail qui bloque la macro .... des adresses pourtant tout à fait normales ...
il y a des adresses qui ne marchent pas ? une façon de les écrire?
j'ai bien regardé et je ne vois pas pourquoi ces 3 adresses là ne marches pas ... ce qui bloque chaque fois la macro
merci d'avance pour un éventuel conseil
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'131
Appréciations reçues : 375
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 31 janvier 2020, 14:37

bonjour,

as-tu essayé d'envoyer un message (sans passer par la macro) à ces adresses mail ?
as-tu un message d'erreur ? lequel ? sur quelle instruction ? quelles sont ces adresses "normales" ? ... ::(
W
Watou
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 8 août 2016
Version d'Excel : 2016

Message par Watou » 31 janvier 2020, 14:47

oui je correspond par mail avec ces personnes très souvent
quand j'éxécute la macro (voir plus haut dans le post, il y le détail du code VBA) je reçois un message erreur :
erreur d'execution -2147467259(8000-4005)
impossible de reconnaitre un ou plusieurs noms

adresse en question : Marijke.Verelst@hortiplan.com

bizarre non ?
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'131
Appréciations reçues : 375
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 31 janvier 2020, 15:12

Bonjour,

je n'ai aucun problème pour préparer un mail avec cette adresse telle que tu l'as donnée.

si tu fais le display sans envoyer, cela fonctionne-t-il ?
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message