Random Quote

W

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
 
M

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
 
Top