procedure TFrmSend.SpeedButton1Click(Sender: TObject);
var
kp,tk:tinifile;
h,u,p:string;
begin
Screen.Cursor:=crhourglass;
if not frmMain.nms.connected then
Begin
tk:=tIniFile.Create('mail.ini');
p:=tk.ReadString('General','defaultconn',p);
h:=tk.ReadString(p,'host',h);
u:=tk.ReadString(p,'usename',u);
FrmMain.nms.UserID:=u;
FrmMain.nms.Connect;
tk.Free;
if not FrmMain.nms.Connected then
Messagedlg('硈钡Τ拜肈!',mtError,[mbok],0);
end;
kp:=Tinifile.Create('mail.ini');
FrmMain.nms.PostMessage.FromAddress:=kp.ReadString(p,'Email','');
FrmMain.nms.PostMessage.FromName:=kp.ReadString(p,'name','');
FrmMain.nms.PostMessage.Subject:=edit4.Text;
FrmMain.nms.PostMessage.ToAddress.Add(edit1.text);
FrmMain.nms.PostMessage.ToBlindCarbonCopy.Add(edit3.text);
FrmMain.nms.PostMessage.ToCarbonCopy.Add(edit2.text);
FrmMain.nms.PostMessage.Attachments.AddStrings(listbox1.Items);
FrmMain.nms.PostMessage.Body.Assign(memo1.Lines);
showmessage('0000');
kp.Free;
FrmMain.nms.SendMail;
showmessage('1111'); screen.Cursor:=crdefault;
Close;
end;执行时报错:
Null Remote Address或者 Incomplete Header .这是什么原因?
这段程序是别人传给我的,我看不太懂,请有用过该组件的朋友们给我一个简单的例子。比如就直接赋值给他们各项。我不知道哪些项可以要,哪些项可以不要,哪些项必须要。最好能够运行的。多谢了。
var
kp,tk:tinifile;
h,u,p:string;
begin
Screen.Cursor:=crhourglass;
if not frmMain.nms.connected then
Begin
tk:=tIniFile.Create('mail.ini');
p:=tk.ReadString('General','defaultconn',p);
h:=tk.ReadString(p,'host',h);
u:=tk.ReadString(p,'usename',u);
FrmMain.nms.UserID:=u;
FrmMain.nms.Connect;
tk.Free;
if not FrmMain.nms.Connected then
Messagedlg('硈钡Τ拜肈!',mtError,[mbok],0);
end;
kp:=Tinifile.Create('mail.ini');
FrmMain.nms.PostMessage.FromAddress:=kp.ReadString(p,'Email','');
FrmMain.nms.PostMessage.FromName:=kp.ReadString(p,'name','');
FrmMain.nms.PostMessage.Subject:=edit4.Text;
FrmMain.nms.PostMessage.ToAddress.Add(edit1.text);
FrmMain.nms.PostMessage.ToBlindCarbonCopy.Add(edit3.text);
FrmMain.nms.PostMessage.ToCarbonCopy.Add(edit2.text);
FrmMain.nms.PostMessage.Attachments.AddStrings(listbox1.Items);
FrmMain.nms.PostMessage.Body.Assign(memo1.Lines);
showmessage('0000');
kp.Free;
FrmMain.nms.SendMail;
showmessage('1111'); screen.Cursor:=crdefault;
Close;
end;执行时报错:
Null Remote Address或者 Incomplete Header .这是什么原因?
这段程序是别人传给我的,我看不太懂,请有用过该组件的朋友们给我一个简单的例子。比如就直接赋值给他们各项。我不知道哪些项可以要,哪些项可以不要,哪些项必须要。最好能够运行的。多谢了。
解决方案 »
- delphi 调用webservice 序列化
- 给所有编程人员获得一次进入SAP行业工作的机会
- 如何计算箭头的两个端点﹖
- 急、急、急:以下代码出错是怎么回事?
- 这样导EXCEL速度非常快,但有个问题一直解决不了,请教,急死了
- 各位兄弟姐妹,中秋送各位一个小红包,大家节日快乐!
- 怎样让同一OpenDialog,在确认打开文件之前,不会再被执行一次?
- 求支持TWinControl的outlookbar控件
- 我用存储过程把数据调到本机,在dbgrid中显示出来了,但我该如何在本机把dbgrid中的数据排序呢,而不是要通过SQL命令去服务器拿资料
- 遇到怪事了,求救,TDBEDIT.READONLY不起作用了
- 关于事务处理,请看看这段代码是否正确。100分
- MIDAS是什么意思?
出错了。
请大家进来啊!