質問編集履歴
6
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -79,8 +79,6 @@
|
|
|
79
79
|
IdMessage.Recipients.Add.Text := 'sendto@hogehuga.com'; // 送信先アドレス
|
|
80
80
|
|
|
81
81
|
IdMessage.Subject := 'タイトル';
|
|
82
|
-
|
|
83
|
-
IdMessage.ReplyTo.EMailAddresses := IdMessage.From.Address;
|
|
84
82
|
|
|
85
83
|
IdMessage.Encoding := meMIME;
|
|
86
84
|
|
5
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -66,7 +66,7 @@
|
|
|
66
66
|
|
|
67
67
|
IdSMTP.Username := 'hoge@hotmail.com'; // ユーザ名
|
|
68
68
|
|
|
69
|
-
IdSMTP.Password := 'huga'; //
|
|
69
|
+
IdSMTP.Password := 'huga'; // パスワード
|
|
70
70
|
|
|
71
71
|
|
|
72
72
|
|
|
@@ -186,4 +186,4 @@
|
|
|
186
186
|
|
|
187
187
|
Delphi 10.1 update2
|
|
188
188
|
|
|
189
|
-
Open
|
|
189
|
+
OpenSSL openssl-1.0.2l
|
4
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -102,8 +102,6 @@
|
|
|
102
102
|
|
|
103
103
|
|
|
104
104
|
|
|
105
|
-
// Conexão e autenticação
|
|
106
|
-
|
|
107
105
|
try
|
|
108
106
|
|
|
109
107
|
IdSMTP.Connect;
|
3
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -47,8 +47,6 @@
|
|
|
47
47
|
try
|
|
48
48
|
|
|
49
49
|
|
|
50
|
-
|
|
51
|
-
// Configuração do protocolo SSL (TIdSSLIOHandlerSocketOpenSSL)
|
|
52
50
|
|
|
53
51
|
IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv2;
|
|
54
52
|
|
2
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -56,8 +56,6 @@
|
|
|
56
56
|
|
|
57
57
|
|
|
58
58
|
|
|
59
|
-
// Configuração do servidor SMTP (TIdSMTP)
|
|
60
|
-
|
|
61
59
|
IdSMTP.IOHandler := IdSSLIOHandlerSocket;
|
|
62
60
|
|
|
63
61
|
IdSMTP.UseTLS := utUseImplicitTLS;
|
|
@@ -73,8 +71,6 @@
|
|
|
73
71
|
IdSMTP.Password := 'huga'; // アドレス
|
|
74
72
|
|
|
75
73
|
|
|
76
|
-
|
|
77
|
-
// Configuração da mensagem (TIdMessage)
|
|
78
74
|
|
|
79
75
|
IdMessage.From.Address := 'hoge@hotmail.com'; // 送信元アドレス
|
|
80
76
|
|
|
@@ -99,8 +95,6 @@
|
|
|
99
95
|
IdMessage.ContentTransferEncoding := 'BASE64';
|
|
100
96
|
|
|
101
97
|
|
|
102
|
-
|
|
103
|
-
// Configuração do corpo do email (TIdText)
|
|
104
98
|
|
|
105
99
|
IdText.Body.Clear;
|
|
106
100
|
|
|
@@ -133,8 +127,6 @@
|
|
|
133
127
|
end;
|
|
134
128
|
|
|
135
129
|
|
|
136
|
-
|
|
137
|
-
// Envio da mensagem
|
|
138
130
|
|
|
139
131
|
try
|
|
140
132
|
|
1
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -196,6 +196,6 @@
|
|
|
196
196
|
|
|
197
197
|
###補足情報(言語/FW/ツール等のバージョンなど)
|
|
198
198
|
|
|
199
|
-
Delphi 10.1
|
|
199
|
+
Delphi 10.1 update2
|
|
200
200
|
|
|
201
201
|
Openssl openssl-1.0.2l
|