P
Pierre
Guest
Bonjour à toutes et tous,
Dans cette procédure qui fonctionne parfaitement (trouvé sur ce forum, merci à son auteur), je souhaite que les E-mail soit envoyés directement, sans Display (affichage avant envoi).
Où peut-on mettre le ".Send" ?
Suite à plusieurs essais j'arrive à obtenir seulement des messages d'erreurs
Private Sub Workbook_Open()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim i As Integer
i = 3
'i correspondant au 1er N° de ligne - ici le tableau commence à la ligne 3
Do While Len(Sheets("Feuil1").Cells(i, 1).Value) > 0
If Sheets("Feuil1").Range("D" & i) = Date Then
MailAd = Range("B" & i).Value
Subj = "Echéance..."
Msg = "Votre contrat arrive à échéance le " & Range("C" & i).Value & " " & "Merci"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
i = i + 1
Loop
End Sub
Merci à toutes et tous votre collaboration
Bon après-midi
Dans cette procédure qui fonctionne parfaitement (trouvé sur ce forum, merci à son auteur), je souhaite que les E-mail soit envoyés directement, sans Display (affichage avant envoi).
Où peut-on mettre le ".Send" ?
Suite à plusieurs essais j'arrive à obtenir seulement des messages d'erreurs
Private Sub Workbook_Open()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim i As Integer
i = 3
'i correspondant au 1er N° de ligne - ici le tableau commence à la ligne 3
Do While Len(Sheets("Feuil1").Cells(i, 1).Value) > 0
If Sheets("Feuil1").Range("D" & i) = Date Then
MailAd = Range("B" & i).Value
Subj = "Echéance..."
Msg = "Votre contrat arrive à échéance le " & Range("C" & i).Value & " " & "Merci"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
i = i + 1
Loop
End Sub
Merci à toutes et tous votre collaboration
Bon après-midi