Emailnot. av, på?

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

BjMedlem sedan sep. 2000314 inlägg

Frågan7 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)

------------------
ibland tror jag att jag kan lite för lite än vad jag kan ....

[Redigerat av icaaq den 07 jun 2001]

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?

------------------
jag är inte där du är

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?? :q ;)

------------------
ibland tror jag att jag kan lite för lite än vad jag kan ....

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,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

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()

------------------
ibland tror jag att jag kan lite för lite än vad jag kan ....