Emailnot. av, på?

6 svar · 219 visningar · startad av Bj 7 juni 2001

BjMedlem sedan sep. 2000314 inlägg

Trådstart7 juni 2001 20:54#1

Hej.
Som ni kan se nedan så är det ett script för att skicka ett aut. mail när någon t.ex skrivit i en gästbok.
Nu har jag "stängt" av funktionen genom att markera framför varje rad.
Finns det något smart sätt man kan göra i början av denna kod så man bara behöver ändra mellan "ja" och "nej"?

'Namn = Request.Form("namn")
'Email = Request.Form("email")
'Meddelande = Request.Form("meddelande")
'Ip = Request.ServerVariables("REMOTE_ADDR")

'sFrom = "min_email@domän.com"
'sTo= "min_email@domän.com"

'sSubject = "En meddelande har lagts till"
'sMessage = "Hej," & vbcrlf _
        '& "En meddelande har lagts till:" & vbcrlf _
		'& vbcrlf _
        '& "Meddelandet lyder:" & vbcrlf _
        '& vbcrlf _
		'& Meddelande  & vbcrlf _
        '& vbcrlf _
		'& "Det är inlagt av:" & vbcrlf _
		'& "Namn: " & Namn & vbcrlf _
		'& "Email: " & Email & vbcrlf _
		'& "Datum: " & Date
'Set objNewMail = CreateObject("CDONTS.NewMail")
'objNewMail.Send sFrom, sTo, sSubject, sMessage
'Set objNewMail = Nothing

icaaqMedlem sedan okt. 20005 273 inlägg

7 juni 2001 21:03#2

lägg allt i en sub:

sub sendmail(Namn, Email, meddelande, ip)
sFrom = "min_email@domän.com"
sTo= "min_email@domän.com"

sSubject = "En meddelande har lagts till"
sMessage = "Hej," & vbcrlf _
& "En meddelande har lagts till:" & vbcrlf _
& vbcrlf _
& "Meddelandet lyder:" & vbcrlf _
& vbcrlf _
& Meddelande & vbcrlf _
& vbcrlf _
& "Det är inlagt av:" & vbcrlf _
& "Namn: " & Namn & vbcrlf _
& "Email: " & Email & vbcrlf _
& "Datum: " & Date
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.Send sFrom, sTo, sSubject, sMessage
Set objNewMail = Nothing
End Sub

sen om du vill skicka mailet

 
call sendmail(Namn, Email, meddelande, ip)

vill du inte skicka mail koménterar du bort den bara

'call sendmail(Namn, Email, meddelande, ip)

slurkenMedlem sedan juni 200152 inlägg

7 juni 2001 21:11#3

varför anropar man sub:en med call?

kan man inte gör det utan call?

icaaqMedlem sedan okt. 20005 273 inlägg

7 juni 2001 21:11#4

hur menar du ...??

att ändra mellan ja och nej? ska du du ha nån typ radiobutton i ett formulär??

BjMedlem sedan sep. 2000314 inlägg

8 juni 2001 03:15#5

Ja, jag menar så att man som "admin" kan välja om man vill att ett aut. email skall skickas eller ej.

@ndersMedlem sedan juni 200032 967 inlägg

8 juni 2001 04:32#6

jag brukar göra så här typ:

dim bolSendEmail
bolSendEmail = false

...

if bolSendEmail then
' din mailskickarkod
end if

så switchar du bara bolSendEmail mellan true och false.

mvh,

icaaqMedlem sedan okt. 20005 273 inlägg

8 juni 2001 06:01#7

slurken>>
Enligt min uppfattning så genom att använda call så får man reda på att man "callar" på nått annat i koden .......utan att kommenentera så fattar man ju att man nått annat händer??

men som sagt det går ju att bara skriva

sendmail()