Random Quote

[W M]

Hi guys,

Windows XP, Office XP

Does anyone know of a vba code method which will attach random quotes to
your emails without an add in?

Thanks,
Wendy

 

[Michael Bauer]

Am Thu, 15 Sep 2005 13:23:20 -0500 schrieb W M:

Wendy, this function returns a random value between min and max value:

Public Function GetRandomValue(ByVal MinValue As Long, _
ByVal MaxValue As Long _
) As Long
Randomize
GetRandomValue = Int((MaxValue - MinValue + 1) * Rnd + MinValue)
End Function