用TNMSMTP发邮件错在什么地方解决方法
用TNMSMTP发邮件错在什么地方
//////////////////
///Mainform.cpp///
//////////////////
//---------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Mainform.h "
//---------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm "
TForm1 *Form1;
//---------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Memo1-> Text= " ";
}
//---------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{//发送邮件
if (NMSMTP1-> Connected)
{
NMSMTP1-> PostMessage-> FromAddress = Edit5-> Text;
NMSMTP1-> PostMessage-> FromName = Edit7-> Text;
NMSMTP1-> PostMessage-> ToAddress-> Text = Edit3-> Text;
NMSMTP1-> PostMessage-> Body-> Text = Memo1-> Text;
NMSMTP1-> PostMessage-> Subject = Edit5-> Text;
NMSMTP1-> PostMessage-> LocalProgram = "SendMail ";
NMSMTP1-> SendMail();
MessageBox(Handle, "邮件发送完成 ", "信息提示 ",MB_OK);
}
else
MessageBox(Handle, "请首先连接发送邮件服务器 ", "信息提示 ",MB_OK);
}
//---------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{ //连接发送邮件服务器
if(NMSMTP1-> Connected)
NMSMTP1-> Disconnect();
else
{
NMSMTP1-> Host = Edit1-> Text;
NMSMTP1-> UserID = Edit2-> Text;
NMSMTP1-> Connect();
}
}
//---------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{//断开与发送邮件服务器的连接
if(NMSMTP1-> Connected)
NMSMTP1-> Disconnect();
}
//---------------------------------------
////////////////////////////////
/// Mainform.h ///
////////////////////////////////
//---------------------------------------
#ifndef MainformH
#define MainformH
//---------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
//////////////////
///Mainform.cpp///
//////////////////
//---------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Mainform.h "
//---------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm "
TForm1 *Form1;
//---------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Memo1-> Text= " ";
}
//---------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{//发送邮件
if (NMSMTP1-> Connected)
{
NMSMTP1-> PostMessage-> FromAddress = Edit5-> Text;
NMSMTP1-> PostMessage-> FromName = Edit7-> Text;
NMSMTP1-> PostMessage-> ToAddress-> Text = Edit3-> Text;
NMSMTP1-> PostMessage-> Body-> Text = Memo1-> Text;
NMSMTP1-> PostMessage-> Subject = Edit5-> Text;
NMSMTP1-> PostMessage-> LocalProgram = "SendMail ";
NMSMTP1-> SendMail();
MessageBox(Handle, "邮件发送完成 ", "信息提示 ",MB_OK);
}
else
MessageBox(Handle, "请首先连接发送邮件服务器 ", "信息提示 ",MB_OK);
}
//---------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{ //连接发送邮件服务器
if(NMSMTP1-> Connected)
NMSMTP1-> Disconnect();
else
{
NMSMTP1-> Host = Edit1-> Text;
NMSMTP1-> UserID = Edit2-> Text;
NMSMTP1-> Connect();
}
}
//---------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{//断开与发送邮件服务器的连接
if(NMSMTP1-> Connected)
NMSMTP1-> Disconnect();
}
//---------------------------------------
////////////////////////////////
/// Mainform.h ///
////////////////////////////////
//---------------------------------------
#ifndef MainformH
#define MainformH
//---------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>