Weeknummer variabel

[Ron001]

Beste Helper

Ik heb een standaard e-mailtje dat ik elke week stuur met als onderwerp (deze week);
Hier staat tekst huidige week 10 en volgende week 11.

Kan ik week 10 en 11 variabel maken zodat ik het onderwerp telkens nimmer moet aanpassen?

Alvast bedankt!

 

[edmoor]

Vast wel.
Maar met de sumiere informatie die je geeft is niet te zeggen hoe je dat zou moeten doen.

 

[Ron001]

Ik wil gewoon achter huidige week de "huidige weeknummer" krijgen en achter volgende week de "huidige weeknummer +1"

 

[edmoor]

Ja, dat snap ik.
Maar waar heb je die mail?
Excel? Outlook? Anders?
Heb je ergens standaard tekst staan?
Zoja, waar dan?
Hoe ziet je huidige code er uit?

 

[Ron001]

Bij deze...
Hier pas ik het "Subject" steeds elke week handmatig aan...

Sub weeknummer()


    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    
    
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        strbody = "<font size=""3"" face=""Calibri"">" & _
                  "Allen<br><br>" & _
                  "Tekst. <br><br>" & _
                  "Tekst2!" & _
                  "<br><br>Tekst 3  " & _
                  "<br><br>Tekst4"


        On Error Resume Next
        With OutMail
            .To = "Namen"
            .CC = ""
            .BCC = ""
            .Subject = "Tekst deze week 10 en volgende week 11"
            .HTMLBody = strbody
            .Attachments.Add ActiveWorkbook.FullName
            '.VotingOptions = ""
            .Display   'or use .Send
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing

End Sub

 

[edmoor]

Zo gaat het beter

Sub weeknummer()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    [COLOR="#FF0000"]Dim WeekNr As Integer[/COLOR]
        
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    [COLOR="#FF0000"]WeekNr = DatePart("ww", Date, vbMonday, vbFirstFourDays)[/COLOR] [COLOR="#008000"]'ISO weeknummer[/COLOR]
    strbody = "<font size=""3"" face=""Calibri"">" & _
              "Allen<br><br>" & _
              "Tekst. <br><br>" & _
              "Tekst2!" & _
              "<br><br>Tekst 3  " & _
              "<br><br>Tekst4"

    On Error Resume Next
    With OutMail
        .To = "Namen"
        .CC = ""
        .BCC = ""
        [COLOR="#FF0000"].Subject = "Tekst deze week " & WeekNr & " en volgende week " & WeekNr + 1[/COLOR]
        .HTMLBody = strbody
        .Attachments.Add ActiveWorkbook.FullName
        [COLOR="#008000"]'.VotingOptions = ""[/COLOR]
        .Display   [COLOR="#008000"]'or use .Send[/COLOR]
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[Ron001]

Bedankt!

Case closed...