Dim OutApp As Object Dim OutMail As Object Dim cell As Range, x As Integer Dim mesdestinataires As String Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") On Error GoTo cleanup For Each cell In Columns("E").Cells.SpecialCells(xlCellTypeConstants) If cell.Value Like "?*@?*.?*" And _ LCase(Cells(cell.Row, "F").Value) "oui" Then mesdestinataires cell.Value & "; " & mesdestinataires Next cell x = Len(mesdestinataires) - 2 nbritem = Left(mesdestinataires, x) Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = mesdestinataires .Subject = "Infos" .Body = "Bonjour, xxxxxxxxxxxxxx" .Display End With On Error GoTo 0 Set OutMail = Nothing cleanup: Set OutApp = Nothing Application.ScreenUpdating = True
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
120 internautes nous ont dit merci ce mois-ci
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.