2024年3月9日发(作者：)

70 us;

71 Exit;

72 end;

73 with IdMessage do

74 begin

75 Clear;

76 Subject := ;

77 := ;

78 ddresses := ;

79 ddresses := ;

80 ddresses := ;

81 Priority := TIdMessagePriority(4);

82 if Trim() <> '' then

83 begin

84 (MessageParts, Trim());

85 end;

86 ();

87 end;

88 except

89 on E: Exception do

90 begin

91 MessageDlg('Msg Set Failed with Err information [' + e + ']', mtWarning, [mbOK], 0);

92 Exit;

93 end;

94 end;

95 try

96 if (Trim() = '') or (Trim() = '') or (Trim() = '') then

97 begin

98 MessageDlg('You should input UN, please check,thanks!', mtInformation, [mbOK], 0);

99 us;

100 Exit;

101 end;

102 with IdSMTP do

103 begin

104 if Connected then Disconnect;

105 AuthenticationType := atLogin;

106 Port := 25;

107 UserName := ;

108 Password := ;

109 Host := ;

110 Connect;

111 end;

112 except

113 on E: Exception do

114 begin

115 MessageDlg('Srv Set Failed with Err information [' + e + ']', mtWarning, [mbOK], 0);

116 Exit;

117 end;

118 end;

119

120 try

121 (IdMessage);

122 nect;

123 MessageDlg('OK!', mtInformation, [mbOK], 0);

124 except

125 on E: Exception do

126 begin

127 MessageDlg('Send Failed with Err information [' + e + ']', mtWarning, [mbOK], 0);

128 Exit;

129 end;

130 end;

131

132 end;

133

134 end.