Au secours, je me perds tellement j'ai de page ouverte sur le sujet, je pige rien, tous les exemples décrit sont bien plus long que mon programme:
----------------------------------------------
Sub Envoitdemail()
Application.OnTime TimeValue('17:00:00'), ' AdresseIP '
End Sub
----------------------------------------------
Sub AdresseIP()
Dim ApplicOutlook As Object
Dim ElémentCourrier As Object
Dim Sujet As String
Set ApplicOutlook = CreateObject('Outlook.application')
Sujet = 'Adresse IP du ' & Date & ' - ' & Time
Set ElémentCourrier = ApplicOutlook.CreateItem(0)
With ElémentCourrier
.To = 'Renaud.hannon@winants.be'
.Subject = Sujet
.Body = Sujet
.Send
End With
Application.OnTime Now + TimeValue('12:00:00'), 'AdresseIP'
End Sub
----------------------------------------------
je dois absolument travailler avec VNC et comme l'adresse Ip change tout le temps, j comptait m'envoyer un mail (avec l'adresse Ip) automatiquement, mais avec le CDO, ca depasse toutes mes petites compétences
Au secours pitié
Merci d'avance de m'eclairer encore un peu