Envoi E-mail si date atteinte

[Pierre]

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

 

[juju]

Hello,

Mdr le haut me dit qlq chose ;-)

Pour le mail voici la commande :

Sub EnvoiMail_Outlook()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
With olmail
.To = "toto@yahoo.fr"
.Subject = ActiveWorkbook.FullName
.Body = "Bonjour"
.Send
End With
End Sub

Bye

Ju

 

[Pierre]

Merci JUJU,

C'est tout à fait celà qui m'était necessaire.
Je te souhaite une bonne journnée ainsi quà tous les participants au forum