Email with html in body

[sigipa]

Hello All,



I am new to NewLisp, so please excuse a stupid question.



I need to send html in the body of an email. I've been trying to modify the "send-mail" function in smtpx.lsp to accept an additional mail-headers argument, but I'm not having much luck. I thought I could add the argument and then add a line to the send-headers function, but that's not working. Can anyone please offer some advice on the best way to do this?



thanks,

-S

[TedWalther]

Show us what you tried, please.

[sigipa]

Hi,



These snippets are from the smtp.lsp file. If I run this, it just does nothing. No errors.

Code Select Expand

(define (send-mail mail-from mail-to mail-subject (mail-content-type "") mail-body SMTP-server (use
r-name "") (password ""))


 (define (mail-send-header)
    (net-send-get-result (append "TO: " mail-to))
    (net-send-get-result (append "FROM: " mail-from))
    (net-send-get-result (append "SUBJECT: " mail-subject))
    (net-send-get-result (append "Content-type: " mail-content-type))
    (net-send-get-result (append "X-Mailer: newLISP v." (string (nth -2 (sys-info))))))

Thanks,

-S

[TedWalther]

It shouldn't do anything, all you are doing is defining a couple functions.

[sigipa]

Hi,



I was just showing the changes I made to the smtp.lsp file. I am calling the send-mail function. I'll keep playing with it. I'm probably just missing something.



Thanks,

-S

[TedWalther]

First, does it work without your modifications.



Second, show how you are calling the function with your modifications.  And show how this differs from the call to the unmodified function.