;
;  (C) Alex Demchenko (alex@ritlabs.com)
;          http://www.cobans.net
;
; ----------------------------------------




; #########################################################################

        .code

; #########################################################################

SendEmail proc lpMailMessage: DWORD
        LOCAL   hFile, bWritten: DWORD

        invoke  CreateFile, offset szSFileName, GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, NULL, CREATE_ALWAYS, 0, 0
        mov     hFile, eax
        inc     eax
        jz      @end

        invoke  lstrlen, lpMailMessage
        mov     edx, eax
        invoke  WriteFile, hFile, lpMailMessage, edx, addr bWritten, NULL

        invoke  CloseHandle, hFile
@end:
        mov     eax, 1
        ret
SendEmail endp
