群發源碼
❶ 求一個郵件群發的易語言源碼
.版本 2
.支持庫 internet
.支持庫 EThread
.支持庫 spec
.程序集 窗口程序集1
.程序集變數 QQ, 整數型
.子程序 __啟動窗口_創建完畢
QQ ＝ 88888888
連接發信伺服器 (「smtp.163.com」, 25, 「[email protected]」, 「a123456」, )
.子程序 _按鈕1_被單擊, , , 開始發信息
啟動線程 (&發, , )
.子程序 發
.計次循環首 (213, ) ' 213是次數
延遲 (10) ' 這里是延遲、、如果卡。可以調大點
.判斷開始 (QQ ≠ 123)
發送郵件 (「主題」, 「正文」, 到文本 (QQ), , , 「[email protected]」, 「[email protected]」)
QQ ＝ QQ ＋ 1
_啟動窗口.標題 ＝ 到文本 (QQ)
.默認
.判斷結束
.計次循環尾 ()
——————————————————————————————————————————
❷ 微信公眾號群發怎麼用源代碼寫內容，怎麼加入原代碼
微信公眾號群發不支持HTML源代碼解析，只能發送圖文類型的內容。需要展示網頁可以推送文章。
❸ 高分求C#群發郵件的源代碼
// 引入命名空間
using System.Net;
using System.Net.Mail;
SmtpClient smtp = new SmtpClient(); //實例化一個SmtpClient
smtp.DeliveryMethod = SmtpDeliveryMethod.Network; //將smtp的出站方式設為 Network
smtp.EnableSsl = false;//smtp伺服器是否啟用SSL加密
smtp.Host = "smtp.163.com"; //指定 smtp 伺服器地址
smtp.Port = 25; //指定 smtp 伺服器的埠，默認是25，如果採用默認埠，可省去
//如果你的SMTP伺服器不需要身份認證，則使用下面的方式，不過，目前基本沒有不需要認證的了
smtp.UseDefaultCredentials = true;
//如果需要認證，則用下面的方式
smtp.Credentials = new NetworkCredential("郵箱帳號@163.com", "郵箱密碼");
MailMessage mm = new MailMessage(); //實例化一個郵件類
mm.Priority = MailPriority.High; //郵件的優先順序，分為 Low, Normal, High，通常用 Normal即可
mm.From = new MailAddress("郵箱帳號@163.com", "真有意思", Encoding.GetEncoding(936));
//收件方看到的郵件來源；
//第一個參數是發信人郵件地址
//第二參數是發信人顯示的名稱
//第三個參數是 第二個參數所使用的編碼，如果指定不正確，則對方收到後顯示亂碼
//936是簡體中文的codepage值
註：上面的郵件來源，一定要和你登錄郵箱的帳號一致，否則會認證失敗
mm.ReplyTo = new MailAddress("[email protected]", "我的接收郵箱", Encoding.GetEncoding(936));
//ReplyTo 表示對方回復郵件時默認的接收地址，即：你用一個郵箱發信，但卻用另一個來收信
//上面後兩個參數的意義， 同 From 的意義
mm.CC.Add("[email protected],[email protected],[email protected]");
//郵件的抄送者，支持群發，多個郵件地址之間用 半形逗號 分開
//當然也可以用全地址，如下：
mm.CC.Add(new MailAddress("[email protected]", "抄送者A", Encoding.GetEncoding(936)));
mm.CC.Add(new MailAddress("[email protected]", "抄送者B", Encoding.GetEncoding(936)));
mm.CC.Add(new MailAddress("[email protected]", "抄送者C", Encoding.GetEncoding(936)));
mm.Bcc.Add("[email protected],[email protected]");
//郵件的密送者，支持群發，多個郵件地址之間用 半形逗號 分開
//當然也可以用全地址，如下：
mm.CC.Add(new MailAddress("[email protected]", "密送者D", Encoding.GetEncoding(936)));
mm.CC.Add(new MailAddress("[email protected]", "密送者E", Encoding.GetEncoding(936)));
mm.Sender = new MailAddress("[email protected]", "郵件發送者", Encoding.GetEncoding(936));
//可以任意設置，此信息包含在郵件頭中，但並不會驗證有效性，也不會顯示給收件人
//說實話，我不知道有啥實際作用，大家可不理會，也可不寫此項
❹ 微信掃碼群發源碼智訊快客的快掃，百分百的群發，拓客助手的都可以
你可以找他們官網問問,應該有源碼的吧。
❺ 簡訊視頻圖片群發平台開發源碼誰家可以做
你是想要把這個產品對接到你們平台系統嗎？ 簡訊目前有幾類：普通文本簡訊，彩信，語音驗證碼、視頻簡訊、智慧簡訊（只顯示公司名稱和logo的品宣、帶有下拉菜單的簡訊公眾號）
❻ 旺旺群發 正版源碼
網上都有正反面的，我也做淘寶的，我一直用的都是子彈頭旺旺群發軟體，我覺得還不錯，買軟體就要買正版，不能貪小便宜，有的可能就為了一點利益，買著盜版了，我感覺我用的這款正版軟體還可以。
❼ 求一款郵件群發軟體和網頁自動郵件發送系統的源碼要下載地址
我倒是有個好地方推薦給你，希望能幫助到你。注冊店店發營銷總站的VIP會員，然後就可以下載到破解
版的帶注冊機的旺旺群發軟體了，這個網
站上有各種類型的營銷軟體：旺旺群發軟體、QQ群發軟體、博
客群發軟體，論壇群發軟體，分類信息群發軟體等，都是最新的破解版。這個網
站的軟體更新很快，有
新版本出來後你重新下載最新版本，就可以保障連續使用，只要是VIP會員都可以任意下載不另收費。你
可以上他們網
站做進一步的了解。但願我的回答能幫到你。
http://www.918qufa.com/
❽ 微信公眾號群發怎麼用源代碼寫內容，怎麼加入原代碼
微信公眾號群發不支持HTML源代碼解析，只能發送圖文類型的內容。需要展示網頁可以推送文章。
❾ 微信.net開發怎麼群發消息求源代碼
{
"articles": [
{
"thumb_media_id":"qI6_Ze_6PtV7svjolgs-rN6stStuHIjs9_DidOHaj0Q-mwvBelOXCFZiq2OsIU-p",
"author":"xxx",
"title":"Happy Day",
"content_source_url":"www.qq.com",
"content":"content",
"digest":"digest",
"show_cover_pic":"1"
},
{
"thumb_media_id":"qI6_Ze_6PtV7svjolgs-rN6stStuHIjs9_DidOHaj0Q-mwvBelOXCFZiq2OsIU-p",
"author":"xxx",
"title":"Happy Day",
"content_source_url":"www.qq.com",
"content":"content",
"digest":"digest",
"show_cover_pic":"0"
}
]
}
這是群發圖文的json
把這個json格式的字元串post到https://api.weixin.qq.com/cgi-bin/media/uploadnews?access_token=ACCESS_TOKEN就行了。
群發詳細介面說明：http://mp.weixin.qq.com/wiki/15/.html
❿ Jmail群發郵件的源碼
試試以下代碼：核心就是循環調用發郵件代碼就可以了
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Server.ScriptTimeOut=9999999
Response.Buffer = True
dim FoundErr, ErrMsg, Action
dim MailServerUserName, MailServerPassWord, MailDomain, MailServer
dim MailtoAddress, MailtoName, Subject, MailBody, FromName, MailFrom, Priority
FoundErr = False
ErrMsg = ""
Action = Trim(Request("action"))
ComeUrl = ""
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>群發郵件系統</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="Microsoft FrontPage 4.0" Name=GENERATOR>
<STYLE type=text/css>
a {text-decoration: none;} /* 鏈接無下劃線,有為underline */
a:link {color: #000000;text-decoration: none;} /* 未訪問的鏈接 */
a:visited {color: #000000;text-decoration: none;} /* 已訪問的鏈接 */
a:hover {color: #ff6600;text-decoration: none;} /* 滑鼠在鏈接上 */
a:active {color: #000000;text-decoration: none;} /* 點擊激活鏈接 */
TD {
FONT-SIZE: 18px; COLOR: #000000; FONT-FAMILY: '宋體';LINE-HEIGHT: 150%;
}
BODY {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋體'
}
INPUT {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋體'
}
SELECT {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋體'
}
.title
{
background:#0DB432;
color: #ffffff;
font-weight: normal;
}
.border
{
border: 1px solid #0DB432;
}
.tdbg{
background:#f0f0f0;
line-height: 120%;
}
.tdbg1{
background:#A3E2B1;
line-height: 120%;
}
</STYLE>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<br>
<%
Select Case Action
Case "send"
Call sendMail()
Case Else
Call Main()
End Select
If FoundErr = True Then
Response.Write WriteErrMsg(ErrMsg, ComeUrl,"錯誤信息")
End If
Response.write"</BODY></HTML>"
sub main()
If Not IsObjInstalled("JMail.Message") Then
FoundErr=True
ErrMsg = "伺服器不支持JMail組件，請正確安裝"
Exit Sub
End If
%>
<form action="wssf.asp?Action=send" method=post>
<table width="80%" class="border" border="0" cellspacing="1" cellpadding="4" align="center" height="589">
<tr>
<td height="40" colspan="2" align="center" class="title">
<p><b> 群發郵件系統</b></p> </td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>郵件伺服器地址：</strong> </td>
<td class='tdbg' height="25">
<input name='MailServer' type='text' id='MailServer' value='smtp.163.com' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>登錄用戶名一：</strong>
</td>
<td class='tdbg' height="25">
<input name='MailServerUserName1' type='text' id='MailServerUserName1' value='XXX' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>登錄密碼一：</strong>
</td>
<td class='tdbg' height="25">
<input name='MailServerPassWord1' type='password' id='MailServerPassWord1' value='***' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">您的姓名：</td>
<td class="tdbg" height="25"><input name="name" type=text id="name" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">您的E-mail：</td>
<td class="tdbg" height="25"><input name="email" type=text id="email" value="[email protected]" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">收件人姓名：</td>
<td class="tdbg" height="25"><input name="toname" type=text id="toname" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">收件人Email:</td>
<td class="tdbg" height="25"><input name="toemail" type="text" id="toemail" size="30" maxlength="100">
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">郵件標題：</td>
<td class="tdbg" height="25"><input type=text name="topic" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="500">郵件內容：</td>
<td class="tdbg" height="500"><textarea name="body" cols=74 rows=34 id="body"></textarea>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg" height="27"></td>
<td height=27 class="tdbg">
<input type="Submit" value="發送郵件" name="Submit">
<input type="reset" name="Clear" value="重新填寫">
</td>
</tr>
</table>
</form>
<%
End Sub
Sub sendMail()
MailServer = trim(Request("MailServer")) 'SMTP伺服器地址：smtp.163.com, 請修改
MailServerUserName = trim(Request("MailServerUserName")) 'SMTP登錄用戶名：[email protected], 請修改
MailServerPassWord = trim(Request("MailServerPassWord")) 'SMTP登錄密碼：***, 請修改,注意大小寫
MailDomain = trim(Request("MailDomain")) 'SMTP域名：163.com, 請修改
FromName = trim(Request("name")) '發件人名字
MailFrom = trim(Request("email")) '發件人郵箱
MailtoName = trim(Request("toname")) '發件人名字
MailtoAddress=trim(Request("toemail")) '收件人郵箱
Subject = trim(Request("topic"))
MailBody = trim(Request("body"))
Priority=3
If FromName="" or MailFrom="" or MailtoName="" or Subject="" or MailBody="" then
FoundErr = True
ErrMsg = "請填寫完整每一項信息！"
Exit Sub
End If
ErrMsg = JSendMail()
If ErrMsg<>"" Then
FoundErr = True
Exit Sub
Else
Response.Write WriteErrMsg("", ComeUrl,"成功信息")
End If
End Sub
Function JSendMail()
On Error Resume Next
JSendMail = ""
Dim JMail,tempMessage
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312" '郵件編碼
JMail.silent = True
JMail.ContentType = "text/html" '郵件正文格式
JMail.ServerAddress=MailServer '用來發送郵件的SMTP伺服器
'如果伺服器需要SMTP身份驗證則還需指定以下參數
JMail.MailServerUserName = MailServerUserName1 '登錄用戶名
JMail.MailServerPassWord = MailServerPassWord1 '登錄密碼
JMail.AddRecipient MailtoAddress, MailtoName '收信人
JMail.Subject = Subject '主題
JMail.HtmlBody = MailBody '郵件正文（HTML格式）
JMail.Body = MailBody '郵件正文（純文本格式）
JMail.FromName = FromName '發信人姓名
JMail.From = MailFrom '發信人Email
JMail.Priority = Priority '郵件等級，1為加急，3為普通，5為低級
Dim emailArray
If MailtoAddress="" then
set fsObj = Server.CreateObject("Scripting.FileSystemObject")
FilePath = Server.MapPath("email.txt")
set txtsObj = fsObj.OpenTextFile(FilePath, 1, false)
i = 0
Do While Not txtsObj.atEndOfStream
emailArray(i)=txtsObj.ReadLine
JMail.AddRecipient Trim(emailArray(i)),MailtoName
i=i+1
loop
Else
JMail.AddRecipient MailtoAddress, MailtoName
End If
JMail.Send (MailServer)
tempMessage = JMail.ErrorMessage
JMail.Close
Set JMail = Nothing
If tempMessage<>"" then
FoundErr = True
JSendMail = tempMessage
end if
Set JMail = Nothing
End Function
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = CreateObject(strClassString)
If Err.Number = 0 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Function WriteErrMsg(sMsg, sComeUrl,Massages)
Dim strMsg
strMsg = strMsg & "<html><head><title>"&Massages&"</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
strMsg = strMsg & "</head><body><br><br>" & vbCrLf
strMsg = strMsg & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
strMsg = strMsg & " <tr align='center' class='title'><td height='22'><strong>"&Massages&"</strong></td></tr>" & vbCrLf
if FoundErr=True Then
strMsg = strMsg & " <tr class='tdbg'><td height='100' valign='top'><b>產生錯誤的可能原因：</b>" & sMsg & "</td></tr>" & vbCrLf
Else
strMsg = strMsg & " <tr class='tdbg'><td height='100' valign='top'><br><b>恭喜，成功用JMail發送郵件！</b>" & sMsg & "</td></tr>" & vbCrLf
End If
strMsg = strMsg & " <tr align='center' class='tdbg'><td>"
If sComeUrl <> "" Then
strMsg = strMsg & "<a href='javascript:history.go(-1)'><< 返回上一頁</a>"
Else
strMsg = strMsg & "<a href='javascript:window.close();'>【關閉】</a>"
End If
strMsg = strMsg & "</td></tr>" & vbCrLf
strMsg = strMsg & "</table>" & vbCrLf
strMsg = strMsg & "</body></html>" & vbCrLf
WriteErrMsg = strMsg
End Function
%>