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