Attribute VB_Name = "Module1"
Option Explicit

Global Const ENCODING_AUTO = 0      ' to let DLL determine encoding
Global Const ENCODING_DEFAULT = 0   ' synonym
Global Const ENCODING_TEXT = 1      ' to force plain text (no encoding)
Global Const ENCODING_UUENCODE = 2  ' to force UUENCODE
Global Const ENCODING_BASE64 = 3    ' to force MIME Base64 encoding
Global Const ENCODING_MIME = 3      ' synonym


Declare Function SendSMTPEx Lib "gwmail32" (ByVal lpszSMTPHost As String, ByVal lpszFrom As String, ByVal lpszTo As String, ByVal lpszCC As String, ByVal lpszBCC As String, ByVal lpszSubject As String, ByVal lpszErrorsTo As String, ByVal lpszReplyTo As String, ByVal lpszMessage As String, ByVal lpszFilename As String, ByVal bUseDOSName As Boolean, ByVal dwEncoding As Long) As Long
Declare Function GWMailFormatMessage Lib "gwmail32" (ByVal dwError As Long, ByVal lpszResult As String, ByVal dwResultLength As Long) As Boolean