joindre un fichier pdf pour envoi mail Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'840
Appréciations reçues : 334
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
Nouveau venu
Nouveau venu
Messages : 9
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
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 8 août 2016
Version d'Excel : 2016

Message par Watou » Hier, 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 : 8'840
Appréciations reçues : 334
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » Hier, 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
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 8 août 2016
Version d'Excel : 2016

Message par Watou » Hier, 15:02

merci, ça marche parfaitement
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message