質問編集履歴
2
試したこと：送信できた書き方追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -29,6 +29,8 @@
|
|
|
29
29
|
|
|
30
30
|
- my $SMTP = Net::SMTP->new('smtp.example.com');
|
|
31
31
|
- my $SMTP = Net::SMTP->new('smtp.example.com',Port=>'587');
|
|
32
|
+
- my $SMTP = Net::SMTP->new('smtp.example.com:587');
|
|
33
|
+
|
|
32
34
|
ならば送信ができます。
|
|
33
35
|
|
|
34
36
|
ググって対応策としてよく出てくるのが下記でした。
|
1
対応策例のコード修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -34,7 +34,7 @@
|
|
|
34
34
|
ググって対応策としてよく出てくるのが下記でした。
|
|
35
35
|
```ここに言語を入力
|
|
36
36
|
require Net::SMTP::SSL;
|
|
37
|
-
my $SMTP = Net::SMTP::SSL->new($
|
|
37
|
+
my $SMTP = Net::SMTP::SSL->new($host,Port=>$port);
|
|
38
38
|
```
|
|
39
39
|
これだと500エラーになります。
|
|
40
40
|
> Net::SMTP::SSL
|