求要，ASP邮件收发系统的源码和设置方法。

Function CisSendOutLook(sTitle,sTo,sHtmlContent,sCC)

Const adSuffix="@gnpjvc.com.cn"
Dim lTo,ArrTo,i,lCC,ArrCc
lTo=sTo
IF Right(lTo,1)=";" Then lTo=Left(lTo,Len(lTo)-1)
ArrTo=Split(lTo,";")
lTo=""
For i=0 To UBound(ArrTo)
IF InStr(LCase(ArrTo(i)),adSuffix)=0 Then ArrTo(i)=ArrTo(i) & adSuffix
lTo=lTo & ArrTo(i) & ";"
Next
IF Trim(sCC)<>"" Then
lCC=sCC
IF Right(lCC,1)=";" Then lCC=Left(lCC,Len(lCC)-1)
ArrCc=Split(lCC,";")
lCC=""
For i=0 To UBound(ArrCc)
IF InStr(LCase(ArrCc(i)),adSuffix)=0 Then ArrCc(i)=ArrCc(i) & adSuffix
lCC=lCC & ArrCc(i) & ";"
Next
End IF
'''''''''''''''''''''''''''''''''''