Visual Basic - Enviar un correo

Necesito generar por código correos electronicos. ¿Como?
Gracias

Juan:
Este código siempre ha funcionado

Private Sub LongToRGB(ByVal RGBval As Long, Optional ByRef iRed As Integer, Optional ByVal iGreen As Integer, Optional ByVal iBlue As Integer)
iRed = RGBval And 255
iGreen = (RGBval \ 256 ^ 1) And 255
iBlue = (RGBval \ 256 ^ 2) And 255
End Sub

Saludos Ruri