社区
C++ Builder
帖子详情
SMTP问题
sjd163
2002-07-20 09:40:07
用BCB5的Examples/FastNet/Smtp编译后不能正常发件。总说找不到目标。
...全文
422
9
打赏
收藏
SMTP问题
用BCB5的Examples/FastNet/Smtp编译后不能正常发件。总说找不到目标。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
781014
2002-07-21
打赏
举报
回复
顶
sjd163
2002-07-21
打赏
举报
回复
谁能给个带“认证的”的SMTP实例定高分相赠。
sjd163
2002-07-20
打赏
举报
回复
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "smtpmain.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TFormMain *FormMain;
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button1Click(TObject *Sender)
{
NMSMTP1->Host = Edit1->Text;
NMSMTP1->Port = StrToInt(Edit2->Text);
NMSMTP1->UserID = Edit4->Text;
NMSMTP1->Connect();
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button2Click(TObject *Sender)
{
if (NMSMTP1->Connected)
NMSMTP1->Disconnect();
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button6Click(TObject *Sender)
{
NMSMTP1->PostMessage->FromAddress = Edit6->Text;
NMSMTP1->PostMessage->FromName = Edit5->Text;
NMSMTP1->PostMessage->Subject = Edit10->Text;
NMSMTP1->PostMessage->ToAddress->Add(Edit7->Text);
NMSMTP1->PostMessage->ToBlindCarbonCopy->Add(Edit9->Text);
NMSMTP1->PostMessage->ToCarbonCopy->Add(Edit8->Text);
NMSMTP1->PostMessage->Attachments->AddStrings(ListBox1->Items);
NMSMTP1->PostMessage->Body->Assign(Memo1->Lines);
NMSMTP1->SendMail();
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button4Click(TObject *Sender)
{
if (OpenDialog1->Execute())
ListBox1->Items->Add(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button5Click(TObject *Sender)
{
ListBox1->Items->Delete(ListBox1->ItemIndex);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button3Click(TObject *Sender)
{
if (NMSMTP1->Verify(Edit3->Text))
ShowMessage(Edit3->Text+" exists");
else
ShowMessage(Edit3->Text+" not verified");
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button7Click(TObject *Sender)
{
NMSMTP1->ExpandList(Edit11->Text);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1Connect(TObject *Sender)
{
StatusBar1->SimpleText = "Connected";
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1ConnectionFailed(TObject *Sender)
{
ShowMessage("Connection Failed");
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1ConnectionRequired(bool &handled)
{
AnsiString BoxCaption;
AnsiString BoxMsg;
BoxCaption = "Connection Required";
BoxMsg = "Connection Required. Connect?";
if (MessageBox(0, &BoxMsg[1], &BoxCaption[1], MB_YESNO + MB_ICONEXCLAMATION) == IDYES)
{
handled = TRUE;
Button1Click(this);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1Disconnect(TObject *Sender)
{
if (StatusBar1 != 0)
StatusBar1->SimpleText = "Disconnected";
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1EncodeEnd(AnsiString Filename)
{
StatusBar1->SimpleText = "Encoding "+Filename;
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1EncodeStart(AnsiString Filename)
{
StatusBar1->SimpleText = "Decoding "+Filename;
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1Failure(TObject *Sender)
{
ShowMessage("Operation Failed");
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1HostResolved(TComponent *Sender)
{
StatusBar1->SimpleText = "Host Resolved";
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1InvalidHost(bool &handled)
{
AnsiString NewHost;
if (InputQuery("Invalid Host", "Please Choose another host", NewHost))
{
//ShowMessage(NewHost);
NMSMTP1->Host = NewHost;
handled = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1MailListReturn(AnsiString MailAddress)
{
Memo2->Lines->Add(MailAddress);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1PacketSent(TObject *Sender)
{
StatusBar1->SimpleText = IntToStr(NMSMTP1->BytesSent)+" bytes of "+IntToStr(NMSMTP1->BytesTotal)+" sent";
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1RecipientNotFound(AnsiString Recipient)
{
ShowMessage(Recipient+" not found");
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1SendStart(TObject *Sender)
{
StatusBar1->SimpleText = "Sending message";
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1Status(TComponent *Sender, AnsiString Status)
{
if (StatusBar1 != 0)
StatusBar1->SimpleText = Status;
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::NMSMTP1Success(TObject *Sender)
{
StatusBar1->SimpleText = "Message Sent";
}
//---------------------------------------------------------------------------
hbxtx
2002-07-20
打赏
举报
回复
看看你的代码.
大大怪老张
2002-07-20
打赏
举报
回复
很可能是验证的问题
sjd163
2002-07-20
打赏
举报
回复
出错信息是:找不到email地址,而实验用的地址是确实存在的。
sjd163
2002-07-20
打赏
举报
回复
没有忘记Host的服务器。
gk0205
2002-07-20
打赏
举报
回复
在什么地方出错,把出错信息写出来,我以前写过这种程序!
可能是你的smtp服务器要验证,你要把你的用户名和密码用base464编码后
发到你的smtp服务器才能发信!
钛哥
2002-07-20
打赏
举报
回复
NMSMTP1->Host = Edit1->Text;
要输入邮件服务器地址,如 pop3.sina.com.cn
C++
SMTP
发送邮件(支持SSL,可用于使用QQ邮箱发送)
最近想用C++ 发送邮箱,发现QQ神马的,都需要SSL,而且QQ和126 都需要授权码来在第三方登陆,弄的很复杂,所以就下载了一个类。非常给力,试过你就知道。因为是牛人写的,这个牛人不是...亲测,win7 ,vs2010 无
问题
。
JIRA邮件通知功能详细设置
通过修改配置文件来使JIRA与
SMTP
server连接,实现JIRA的MAIL功能
SpringBoot2+Mail邮件发送系统(邮箱专题)
SMTP
协议属于 TCP/IP 协议簇,它帮助每台计算机在发送或中转信件时找到下一个目的地。
SMTP
服务器就是遵循
SMTP
协议的发送邮件服务器。
SMTP
认证,简单地说就是要求...
邮件发送协议
SMTP
问题
排查
惯例先度娘,CSDN 逛了一圈,例程也不少但是每个下边留言都有这样和那样的
问题
,copy 过来直接运行,163 邮箱完美测试通过,我们用的钉钉全家桶,测试钉钉邮箱时发现不能发送邮件,认证都有
问题
。好吧,还是先老老...
gmail
smtp
php,php – Gmail
SMTP
问题
我使用gmail的
smtp
服务器发送电子邮件时遇到
问题
让我解释一下我的情况. 1周前,我可以使用
smtp
发送电子邮件.昨天我的主持人将他们的网站转移到另一台服务器.之后我无法发送电子邮件.我在我的本地机器上测试了电子邮件...
C++ Builder
13,822
社区成员
102,680
社区内容
发帖
与我相关
我的任务
C++ Builder
C++ Builder相关内容讨论区
复制链接
扫一扫
分享
社区描述
C++ Builder相关内容讨论区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章