VBA - Outlook e-mail - formule in .HTMLBody

[Bastiaans90]

Goedemiddag,

Ik probeer een .HTMLBody te maken met een die begint met een formule en vervolgens overgaat in tekst. Weet iemand hoe je dat voor elkaar kan krijgen? Het gaat om onderstaande formule:

IF(AND(HOUR(NOW())>=6,HOUR(NOW())<12),""Goedemorgen,"","""")&IF(AND(HOUR(NOW())>=12,HOUR(NOW())<=18),""Goedemiddag,"","""")&IF(AND(HOUR(NOW())>18,HOUR(NOW())<=23),""Goede avond,"","""")

De rest van de .HTMLBody ziet er als volgt uit:

.HTMLBody = "<p style='font-family:calibri;font-size:14.5'>" & "Goedemorgen," & "<br>" & "<br>" & "Tekst regel 3." & "<br>" & "<br>" & "Tekst regel 5." & "<br>" & "<br>" & "</p>"

De "goedemorgen" wil ik graag vervangen door de bovenste code.

Alvast bedankt voor jullie hulp.

Groetjes,

Bastiaan

 

[VenA]

.HTMLBody = "<p style='font-family:calibri;font-size:14.5'>" & [COLOR="#FF0000"]range waar de formule staat[/COLOR]& ", " & "<br>" & "<br>" & "Tekst regel 3." & "<br>" & "<br>" & "Tekst regel 5." & "<br>" & "<br>" & "</p>"

De formule kan veel eenvoudiger maar dit terzijde.

 

[HSV]

Het is: Goedenavond

 

[edmoor]

Of:

Dim Begroeting As String
Select Case Hour(Now)
    Case 6 To 11:   Begroeting = "Goedemorgen"
    Case 12 To 17:  Begroeting = "Goedemiddag"
    Case Else:      Begroeting = "Goedenavond"
End Select

.HTMLBody = "<p style='font-family:calibri;font-size:14.5'>" & Begroeting & ",<br><br>" & "Tekst regel 3." & "<br><br>" & "Tekst regel 5." & "<br><br></p>"

Je formule wat eenvoudiger:

=IF(AND(HOUR(NOW())>5,HOUR(NOW())<12),"Goedemorgen",IF(AND(HOUR(NOW())>11,HOUR(NOW())<18),"Goedemiddag","Goedenavond"))

 

[HSV]

Of:

 .HTMLBody = "<p style='font-family:calibri;font-size:14.5'>Goede" & Choose(Hour(Now) \ 6 + 1, "nacht", "morgen", "middag", "navond") & ",<br><br>" & "Tekst regel 3." & "<br><br>" & "Tekst regel 5." & "<br><br></p>"

In formulevorm:

="Goede"&CHOOSE(INT(HOUR(NOW())/6+1),"nacht","morgen","middag","navond")

="Goede"&KIEZEN(INTEGER(UUR(NU())/6+1);"nacht";"morgen";"middag";"navond")

 

[Bastiaans90]

Bedankt voor al jullie hulp. Erg leerzaam dit. Het probleem is opgelost