anthooooony
XLDnaute Occasionnel
Bonjour
J'ai un petit problème avec un petit code, mes collègues souhaitent recevoir un décompte pour la fin du monde qui est imminent bien sur.
J'ai crée le batch avec un lancement en tache planifié, mais je n'arrive pas à lui faire dire de mettre le bon résultat..
J'ai crée une variable comme vous verrez ci dessous ou j'ai marqué date fatidique - date du jour, il devrait me trouver 23 mais il trouve tout autre chose, mais je pense que j'ai du merdé quelque part.
Auriez vous une la réponse?
merci d'avance
Anthooooonu
Rendu
Objet : "-82481,9991302187"
Corps du Mail
"-82481,9991302187 avant la fin du monde"
Il devrait y avoir marqué 23 ...
J'ai un petit problème avec un petit code, mes collègues souhaitent recevoir un décompte pour la fin du monde qui est imminent bien sur.
J'ai crée le batch avec un lancement en tache planifié, mais je n'arrive pas à lui faire dire de mettre le bon résultat..
J'ai crée une variable comme vous verrez ci dessous ou j'ai marqué date fatidique - date du jour, il devrait me trouver 23 mais il trouve tout autre chose, mais je pense que j'ai du merdé quelque part.
Auriez vous une la réponse?
merci d'avance
Anthooooonu
Rendu
Objet : "-82481,9991302187"
Corps du Mail
"-82481,9991302187 avant la fin du monde"
Il devrait y avoir marqué 23 ...
Code:
Sub Macro2()
Dim OutApp As Object
Dim OutMail As Object
Dim fdm
fdm = 21 / 12 / 2012 - Date
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .to = "pierre.rabbe@cofely-gdfsuez.com;thomas.gavet@cofely-gdfsuez.com"
.BCC = "anthony.saiz@cofely-gdfsuez.com"
.Subject = fdm - Date
.HTMLBody = "<font face='Calibri'><br><br><br>" & _
fdm - Date & " avant la fin du monde"
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub