D
Dan
Guest
Bonsoir à tous, est ce quelqu'un pourrait me dire comment intégrer une boite de dialogue du style "Etes vous sûr de vouloir" avec "OK" ou "annuler" dans cette macro s'il vous plait ?
Merci d'avance
Sub envoie()
Set ol = CreateObject("outlook.application")
Set mail = ol.createitem(olmailitem)
mail.Recipients.Add ActiveCell.Value
mail.Subject = "Inscrire ici le sujet de l'envoie" 'peut faire réference à une cellule
mail.body = "Inscrire ici le corps du message" 'peut faire réference à une cellule
'Selection des adresses des fichiers a joindres s'il y a besoin
'(Adresse des fichiers du style "c:\...\mon-fichier")
Sheets("feuil1").Select
num_ligne = 1
Do While Cells(num_ligne, 2) <> ""
mail.Attachments.Add Cells(num_ligne, 2).Value
num_ligne = num_ligne + 1
Loop
mail.OriginatorDeliveryReportRequested = True 'accusé de reception
mail.ReadReceiptRequested = True 'accusé de lecture
mail.send
fin:
End Sub
Merci d'avance
Sub envoie()
Set ol = CreateObject("outlook.application")
Set mail = ol.createitem(olmailitem)
mail.Recipients.Add ActiveCell.Value
mail.Subject = "Inscrire ici le sujet de l'envoie" 'peut faire réference à une cellule
mail.body = "Inscrire ici le corps du message" 'peut faire réference à une cellule
'Selection des adresses des fichiers a joindres s'il y a besoin
'(Adresse des fichiers du style "c:\...\mon-fichier")
Sheets("feuil1").Select
num_ligne = 1
Do While Cells(num_ligne, 2) <> ""
mail.Attachments.Add Cells(num_ligne, 2).Value
num_ligne = num_ligne + 1
Loop
mail.OriginatorDeliveryReportRequested = True 'accusé de reception
mail.ReadReceiptRequested = True 'accusé de lecture
mail.send
fin:
End Sub