有做过DELPHI直接连接EXCHANGE的例子的么 我已经实现了 DELPHI调用OUTLOOK发送邮件,但是现在客户机又没有OUTLOOK了,所以所有的链接都要在DELPHI里做,我看到SERVER面板有OUTLOOKAPPLICATION,但是不知道怎么做,有哪位大大给点思路,感激不尽~~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 需要装outlook,outlookapplication也只是对outlook ocx组件的包装 使用Delphi的Indy中的控件,就可以直接发EMail。通常使用这三个控件 TIdPOP3, TIdMessage, TIdSMTP即可。上图就是相关的界面,仅供参考。 是的 SMTP可以实现邮件的发送, 但是现在环境是公司内部EXCHANGE,使用邮箱也是内部邮箱,这就是头疼的问题,EXCHANGE的SMTP都不知道是啥~~。这才是关键 请教大虾 那OUTLOOKAPPLIACTION是不是不需要打开OUTLOOK就可以传输邮件,所有用户的账户密码都是在软件里保存的 if IdSMTP1.Connected then IdSMTP1.Disconnect; IdSMTP1.AuthenticationType := atNone; IdSMTP1.Host := mhost; IdSMTP1.HeloName := mhost; IdSMTP1.Port := 25; IdSMTP1.Connect; try bodylist.Clear; bodylist.Add(mbody); IdHTML := TIdText.Create(IdMessage1.MessageParts, bodylist); IdHTML.ContentType := 'text/html'; IdHTML.ContentTransfer := '8bit'; // 8bit with IdMessage1 do begin From.Text := mfrom; Recipients.EMailAddresses := mto; CCList.EMailAddresses := mcc; BccList.EMailAddresses := mbcc ; Subject := msub ; ReceiptRecipient.Text := ''; if priorityhigh = 'H' then Priority := mpHighest else Priority := mpNormal; end; IdSMTP1.Send(IdMessage1); except end;你要有域的可以发邮件的帐号就可以了. 谢谢大侠,系统会提示error connect with ssl,好像是通过不了SSL验证? 请教大虾 那OUTLOOKAPPLIACTION是不是不需要打开OUTLOOK就可以传输邮件,所有用户的账户密码都是在软件里保存的需要先安装,但用的时候不需要打开outlook。 你的电脑用浏览器能登陆到你的exchange邮箱不? 可以得,可以OWA直接登陆,但是用SMTP连接就报错,不知道为啥OWA登陆是 域名\用户名 也要这么写? 请教大虾 那OUTLOOKAPPLIACTION是不是不需要打开OUTLOOK就可以传输邮件,所有用户的账户密码都是在软件里保存的需要先安装,但用的时候不需要打开outlook。请教大虾 那OUTLOOKAPPLIACTION是不是不需要打开OUTLOOK就可以传输邮件,所有用户的账户密码都是在软件里保存的需要先安装,但用的时候不需要打开outlook。 我现在只会调用OUTLOOK发送,就是说OUTLOOK打开最小化就行了,安装但不用打开iaOUTLOOK不知道怎么弄,请指教,谢谢 你只要装了outlook就行了(成功安装后会自动注册相应的ocx组件),发邮件时不需要启动outlook,只是跑你自己的程序就行了。 如果仅仅是收发邮件,配置EXCHANGE的POP和SMTP服务即可,DELPHI这方面的控件很多,如果需要操作outlook 就需要安装OFFICE,通过ACTIVEX方式调用 帮忙看下这个xml怎么读? delphi线程中操作mscomm delphi2007安装完成后怎么没有ADO组件? 请教界面适应大小?1024*768 和800*600,在线等 dbgrid问题 打印纸张设置问题 为什么总会出现这样的错误???????????? 请求帮助 请问我做的组件为什么在Sample页看不到? Delphi中预编译指令的使用方法 讯飞语音合成C++转Delphi问题。 关于无法邦定由多个部分组成的标识符求助
IdSMTP1.Disconnect;
IdSMTP1.AuthenticationType := atNone;
IdSMTP1.Host := mhost;
IdSMTP1.HeloName := mhost;
IdSMTP1.Port := 25;
IdSMTP1.Connect;
try
bodylist.Clear;
bodylist.Add(mbody);
IdHTML := TIdText.Create(IdMessage1.MessageParts, bodylist);
IdHTML.ContentType := 'text/html';
IdHTML.ContentTransfer := '8bit'; // 8bit
with IdMessage1 do
begin
From.Text := mfrom;
Recipients.EMailAddresses := mto;
CCList.EMailAddresses := mcc;
BccList.EMailAddresses := mbcc ;
Subject := msub ;
ReceiptRecipient.Text := '';
if priorityhigh = 'H' then
Priority := mpHighest else
Priority := mpNormal; end;
IdSMTP1.Send(IdMessage1);
except end;你要有域的可以发邮件的帐号就可以了.
需要先安装,但用的时候不需要打开outlook。
OWA登陆是 域名\用户名 也要这么写?
请教大虾 那OUTLOOKAPPLIACTION是不是不需要打开OUTLOOK就可以传输邮件,所有用户的账户密码都是在软件里保存的
需要先安装,但用的时候不需要打开outlook。请教大虾 那OUTLOOKAPPLIACTION是不是不需要打开OUTLOOK就可以传输邮件,所有用户的账户密码都是在软件里保存的
需要先安装,但用的时候不需要打开outlook。 我现在只会调用OUTLOOK发送,就是说OUTLOOK打开最小化就行了,安装但不用打开iaOUTLOOK不知道怎么弄,请指教,谢谢