Direktmail

Skicka ett mail direkt via våran server.

<%@ Language="VBScript"%> <% option explicit dim strMessage, strMessageField, strTo, strFrom, strSubject, strResult if (trim(Request("_from")) ="") then %>

Från (epost):

Rubrik:

Instant Mail 2.1

Detta skickas direkt via våran server

Du behöver inget E-postprogram

Det är viktigt att du fyller i korrekt email-adress, den används för att skicka en bekräftelse på din felanmälan.
När du gör en felanmälan försök att inkludera så mycket relevant information som möjligt.
Systemloggar, konsol-meddelanden, OS-nivå, versionsnummer, allt kan vara värdefullt för att snabbt kunna hitta en lösning.

<% else for each strMessageField in Request.Form if (left(strMessageField, 1) ="_") then select case strMessageField case "_from" strFrom = Request("_from") case "_subject" strSubject = Request("_subject") end select else strMessage = strMessage & strMessageField & "" strMessage = strMessage & Request(strMessageField) & vbcrlf & vbcrlf & "Automatgenererat av MailSupport v2.1 http://www.hannu.se " & vbcrlf & "Serverleverans av www.hannu.se " end if next strTo = "tobias@hannu.se" StrResult = mailsend("Webbmail från " &strFrom, strFrom, strTo, strSubject, strMessage) if (strResult= "OK") then Response.Write("

Mailet skickat till Supporten !

Skickat för Dig av www.hannu.se....Klicka här för att gå tillbaka.") else Response.Write("

Mailet gick inte att skicka!

"&strResult) end if end if function mailsend(strFromName, strFrom, strTo, strSubject, strBody) dim objMail set objMail = Server.CreateOBject( "JMail.Message" ) objMail.Silent = true objMail.From = strFrom objMail.FromName = strFromName objMail.AddRecipient strTo objMail.Subject = strSubject objMail.Body = strBody objMail.Send("localhost") if (objMail.ErrorCode = 0 ) then mailsend = "OK" else mailsend = objMail.errorMessage end if end function %>