VBA weeknr automatisch in mail subject zetten

[Nelis1]

beste allemaal,

is het mogelijk om in je mail subject meteen het weeknr te genereren? dit scheelt weer wat oplettendheid en wekelijkse repetitieve handeling?
wel getracht om dit via een opgenomen macro te laten verlopen mar dat was toch geen succes ( to say the least )
Bekijk bijlage Weeknr automatisch in mail subject .xlsmBekijk bijlage Weeknr automatisch in mail subject .xlsm

 

[wds]

Kijk hier eens
http://www.snb-vba.eu/VBA_ISO_weeknummer.html

 

[edmoor]

Of met het weeknummer in bijvoorbeeld A1 van Blad1:

.Subject = "Artikel Classificaties - Week " & Sheets("Blad1").Range("A1").Value

 

[Nelis1]

deze oplossing met verwijzing naar een cel is excellent. werkt als een trein, bedankt voor tip!

 

[Nelis1]

kan dit ook werken voor een hyperlink.

stel in Blad 1 - B1 is de hyperlink =HYPERLINK("H:\Documentation\ExcelVBA\VBA";"VBA Filepath") gedefinieerd.

dus dacht ik, nou simpel dan zetten we het onderstaande dikgedrukte erbij maar daar denk VBA dan toch net anders over. de hyperlink formule staat in cel b1 van blad 1 zou ik dan zo een verwijziging kunnen maken?

Sub Email_VBA()

Dim eBody As String
Dim todAY As Date
Dim tod As Date

eBody = "Goedemorgen allemaal," & "<BR><BR>" & "Rapportage voor deze week staat klaar." & "<BR><BR>" & "Priorisering:" & "<BR>" & "1. CLP" & "<BR>" & "2. QB01" & "<BR>" & "3. Bio" & "<BR>" & "<a href=""" & "H:\Documentation\ExcelVBA\VBA" & "<BR><BR>" & "Link" & "<BR><BR><BR>" & "Mvg" & "<BR>" & "Nills"

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail

 

[Nelis1]

en soms komt het antwoord vanzelf: - en opgelost

eBody = "Goedemorgen allemaal," & "<BR><BR>" & "Rapportage voor deze week staat klaar." & "<BR><BR>" & "Priorisering:" & "<BR>" & "1. CLP" & "<BR>" & "2. QB01" & "<BR>" & "3. Bio" & "<BR>" & "<BR><BR>" & "<A HREF=""file://" & ActiveWorkbook.FullName & _
""">Link to the file</A>" & "<BR><BR><BR>" & "Mvg" & "<BR>" & "Nills"