Random Quote

  • Thread starter Thread starter W M
  • Start date Start date
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
 
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
 
Back
Top