myJmail

Hello igen,

kommer med en sub som man kan använda sig av när man ska skicka mail med hjälp av componenten Jmail.

Public Sub myJmail(mySMTPServer, myMail, mySubject, toMail, myBody)

	Set oMail = Server.CreateObject("Jmail.SMTPMail")
	oMail.ServerAddress = mySMTPServer
	oMail.Sender = myMail
	oMail.Subject = mySubject
	oMail.AddRecipient toMail
	oMail.Body = myBody
	oMail.AddHeader "Originating-IP: ", Request.ServerVariables("REMOTE_ADDR")
	oMail.Execute

End Sub

cu all l8er,
PatrikB