Hejsan! Prova bara så här:JMail
Jag har stöd för JMail och det funkar fint!
Men när ja vill använda den i scriptet får ja felmeddelandet:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'jmail.AddRecipient'
Min kod ser ut såhär:
<% '################################################### GODKÄNNER MEDLEM ####################################################
If Request.Querystring("godkann") = "tjejer" Then
IF NOT session("connected")=1 THEN
Response.Redirect "default.asp"
End If
Set Recset = Connect.Execute("SELECT * From tjejer where id = " & Request.Querystring("id") & "")
email = Recset("email")
username = Recset("username")
losen = Recset("losen")
idnummer = Request.Querystring("id")
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "" & email & ""
jmail.From = "Fakhro_84@hotmail.com"
jmail.Subject = "Välkommen!"
jmail.Body = "Detta meddelande skickades " & Now & ""
jmail.appendHTML "<font face=verdana size=1>"
jmail.appendHTML "Hejsan!<br>"
jmail.appendHTML "Din bild har blivit godkänd!<br>"
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "<b>Skickades:</b> " & Now & "<br>"
jmail.appendHTML "<b>Användarnamn: </b> " & username & "<br>"
jmail.appendHTML "<b>ID-Nummer: </b> " & idnummer & "<br>"
jmail.appendHTML "<b>Lösenord: </b> " & losen & "<br>"
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "Använd detta för att kunna logga in på din sida.<br>"
jmail.appendHTML "Som inloggad kan du ta bort kommentarer, ändra personliga uppgifter eller radera ditt konto.<br>"
jmail.appendHTML "</font>"
jmail.Send ("mail1.telia.com")
Recset.Close
Set Recset = Nothing
Connect.Execute("Update tjejer Set tjejer=true where id = " & Request.Querystring("id") & "")
Response.Redirect "status.asp?admin=tjejer"
End If %>Sv: JMail
Lägg till denna rad:
jmail.ContentType = "text/html"
och ändra till:
jmail.AddRecipient email
...och glöm inte:
set jmail = nothing
..när mailet är skickat.
/Juha