I-BEGO

aku udah bikin spti ini

Code: Select all

<%
Sub SendEmail(byval iFrom, byval iTo, byval iMsg)

   Set myMail=CreateObject("CDO.Message")
   myMail.Subject="PUSAT LAPTOP CUSTOMER"
   myMail.From=iFrom
   myMail.To=iTo
   myMail.TextBody=iMsg
   myMail.Send
   set myMail=nothing

End Sub
%>

<%
Call SendMail("hChoki@gmail.com","sambelkecap@rocketmail.com", "tes loh tes")
%>


kok errornya Type mismatch yah..di row 'Call nya'

itu juga udah aku jalanin online di web..

udah aku rubah langsung sesuai saran om pleki

Code: Select all

<%
         dim myMsg
         myMsg = "070707" & " " & "tes tralala"
         
         
         dim myMail
         
         Set myMail=CreateObject("CDO.Message")
         myMail.Subject="CUSTOMER"
         myMail.From="hchoki@gmail.com"
         myMail.To="sambelkecap@rocketmail.com"
         myMail.TextBody=myMsg
         myMail.Send
         set myMail=nothing

%>


keterangan error malah

"CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid. "