When I check the a4d shell, there is NO project method named 'WEB_SendMail'.
Also in the latest version of A4D shell there is no project method named
'A4D_SendMail' which is exist in version 1 or 2.


Any comments?

Here's what it should look like:

ÂÂ`PM: WEB_SendMail(
ÂÂ`                  inFrom: Text;
ÂÂ`                  inTo: Text;
ÂÂ`                  inSubject: Text;
ÂÂ`                  inBody: Text;
ÂÂ`                  inCC: Text;
ÂÂ`                  inBCC: Text;
ÂÂ`                  inAttachment: Text) -> Longint

C_TEXT($1;$inFrom;$2;$inTo;$3;$inSubject;$4;$inBody;$5;$inCC;$6;$inBCC;$ 7;$inAttachment)
C_LONGINT($0)
$inFrom:=$1
$inTo:="[EMAIL PROTECTED]"ÂÂ`$2
$inSubject:=$3
$inBody:=$4
$inCC:=$5
$inBCC:=$6
$0:=0


If (Count parameters>6)
  $inAttachment:=$7
Else
  $inAttachment:=""
End if

C_LONGINT($err;$smtp)
$smtp:=0
$err:=SMTP_New ($smtp)

If ($err=0)
  $err:=SMTP_Host ($smtp;âWEB_SMTP_Host)
End if

If ($err=0)
  $err:=SMTP_From ($smtp;$inFrom)
End if

If ($err=0)
  $err:=SMTP_To ($smtp;$inTo)
End if

If (($err=0)Â&Â($inCC#""))
  $err:=SMTP_Cc ($smtp;$inCC)
End if

If (($err=0)Â&Â($inBCC#""))
  $err:=SMTP_Bcc ($smtp;$inBCC)
End if

If ($err=0)
  $err:=SMTP_Subject ($smtp;$inSubject)
End if

If (($err=0)Â&Â($inAttachment#""))
  $err:=SMTP_Attachment ($smtp;$inAttachment;1)ÂÂ`Encode BinHex
End if

If ($err=0)
  $err:=SMTP_Body ($smtp;$inBody)
End if

If ($err=0)
  $err:=SMTP_Send ($smtp)
End if

If ($smtp#0)
  $err:=SMTP_Clear ($smtp)
End if

$0:=$err

Regards,

   Aparajita
   Victory-Heart Productions
   [EMAIL PROTECTED]
   www.aparajitaworld.com

   "If you dare to fail, you are bound to succeed."
   - Sri Chinmoy   |   www.srichinmoylibrary.com



Reply via email to