2013-04-10 3 views
0

내가하지 설립연결이 설정되지 않았습니다. 메일에서 오류 :: 보낸 사람

연결로 오류 메시지를 받고 있어요, 메일 : 보낸 사람을 사용하고 있습니다.

해시를 채우기 위해 OpenMultipart를 사용하고 있습니다.

이 오류가 발생하는시기는 언제입니까? 어떻게 해결할 수 있을까요?

10 개의 메일을 보내면 2 개의 메일 만 전송되고 나머지 메일에는이 오류가 발생합니다. 나는 성공적으로 전송 10 개 메일 만이 메일을 보낼 경우

$Msg = new Mail::Sender (
       { 
       smtp => $EMAIL_Globals::SMTP_IP, 
       from => $FromAddress, 
       debug_level => 4, 
       } 
       ); 

eval { 
     $Msg->OpenMultipart({ 
         from => ${$Email_details}[10], 
         to => ${$Email_details}[9], 
         subject => $Subject, 
         debug => '/tmp/zkMailFlow.log', 
         multipart => 'related', 
         }) 
     ->Part({ctype => 'multipart/alternative'}) 
       ->Part({ctype => 'text/html', disposition => 'NONE', msg => " 
           <!DOCTYPE html PUBLIC -//W3C//DTD HTML 4.01 Transitional//EN> 
           <html> xxxxx 
           </html>" }) 
       ->EndPart("multipart/alternative"); 
     for (;$i<= $Length; $i+=4) { 
       $Count=$i; 
       $Flag = 1; 
       $Msg->Attach({ 
           description => 'xxxxx', 
           ctype => 'image/jpeg', 
           encoding => 'base64', 
           disposition => "attachment; filename=$Page_id[$i];", 
           file => '/path/files/i', 
           }); 
     } 
     $Msg->Close(); 
} or print "Error sending mail: $Mail::Sender::Error\n"; 

if ($Mail::Sender::Error) 
{ 
     if ($Msg->{"error"} eq -3) 
     { 
       return('FAILURE',$Mail::Sender::Error); 
     } 
     else 
     { 
       return('Error',$Mail::Sender::Error); 
     } 
} 

if (ref ($Msg) ne 'Mail::Sender'){ 
     return ('Error',$Mail::Sender::Error); 
} 
else{ 
     return('SUCCESS',"Mail Sent Successfully"); 
} 

디버그 로그 파일 내용

>> 220 nsmtpin.xxxxb.co.in ESMTP Service (Lotus Domino Release 8.5.2) ready at Wed, 10 Apr 2013 00:42:28 +0530 
<< EHLO localhost 
>> 250-nsmtpin.xxxxb.co.in Hello localhost ([10.2.252.251]), pleased to meet you 
>> 250-HELP 
>> 250-SIZE 5324800 
>> 250 PIPELINING 
<< MAIL FROM:<[email protected]> 
>> 250 [email protected] Sender OK 
<< RCPT TO:<[email protected]> 
>> 250 [email protected] Recipient OK 
<< DATA 
>> 354 Enter message, end with "." on a line by itself 
<< To: [email protected] 
<< From: [email protected] 
<< Subject: Testing 
<< Date: Wed, 10 Apr 2013 00:35:42 +0530 
<< X-Mailer: Perl script "Email_Resender" 
<< using Mail::Sender 0.8.16 by Jenda Krynicky, Czechlands 
<< running on localhost (127.0.0.1) 
<< under account "root" 
<< Message-ID: <[email protected]> 
<< MIME-Version: 1.0 
<< Content-type: multipart/related; 
<< boundary="Message-Boundary-by-Mail-Sender-1365534342" 
<< 
<< This message is in MIME format. Since your mail reader does not understand 
<< this format, some or all of this message may not be legible. 
<< 
<< --Message-Boundary-by-Mail-Sender-1365534342 
<< Content-Type: multipart/alternative; boundary="Part-Message-Boundary-by-Mail-Sender-1365534342_2" 
<< 
<< 
<< --Part-Message-Boundary-by-Mail-Sender-1365534342_2 
<< Content-type: text/html 
<< Content-transfer-encoding: 7BIT 
<< 
<< 
<< 
<<       <!DOCTYPE html PUBLIC -//W3C//DTD HTML 4.01 Transitional//EN> 
<<       <html> 
<<       
<<       </html> 
<< --Part-Message-Boundary-by-Mail-Sender-1365534342_2-- 
<< 
<< --Message-Boundary-by-Mail-Sender-1365534342 
<< Content-type: image/jpeg; name="20130408_112508_2792230080_1_4.jpg" 
<< Content-description: fax1 jpg 
<< Content-transfer-encoding: base64 
<< Content-disposition: attachment; filename=08042013/20130408_112508_2792230080_1_4.jpg; 
<< 
<< /9j/4AAQSkZJRgABAQEAzABiAAD//gAbPFVOU1BFQ0lGSUVEPgoyNzkyMjMwMDgwCv/bAEMABQME 
<< BAQDBQQEBAUFBQYHDAgHBwcHDwsLCQwRDxISEQ8RERMWHBcTFBoVEREYIRgaHR0fHx8TFyIkIh4k 
<< HB4fHv/AAAsIA+gDIAEBEQD/xAAdAAEAAgMBAQEBAAAAAAAAAAAABQYDBAcCAQgJ/8QAdhAAAQME 
<< fWbj6/DL+rsQgf8Ad/VX4L6Wzr/beo2PTcWQpy9N3Fn0JtP/AGRwrACD9St8T9RNf1yRy4DkAFa7 
<< gHeqj8nvVvxzHbhfrq+GINvjrkPrPsQkbOvefYB7yK578HfqZL6lYhMeukL4qv0N7b8UoIKWHh4s 
<< jkjkT7dBQH2VhR8HzCUFRRdcxSVq5K1kcobPbufW8+wr1/g/4Z/S+Z/rLK/aqUt3RXBokRLDjF2m 
<< qDnPxpd3kuOEfilXMer9VbbXSHAkNpQbQ+spAHJdxklR+snxO5r180eA/wBCufeEn95T5o8B/oVz 
<< 7wk/vKfNHgP9CufeEn95T5o8B/oVz7wk/vKfNJgP9CufeEn95Uc50G6QuuKcdwKzOOLJUpa0KUpR 
<< PmSSrZP1mvnzBdHfzfWP/ZK/aoOgfR4EEdPrHsHf8ir++p+P0z6exw8GsKx5Pjnbn+5zR3217U9u 
<< 3u1Wdvp9giEJQnDcd4pAA/3LYPYf/Fr78gMG/I3Hfutj9inyAwb8jcd+62P2KfIDBvyNx37rY/Yp 
<< 8gMG/I3Hfutj9ivbWC4U0dtYjYEE+1NsYH/5Ne/kViHLl8lrHsjW/i5ny/1ayxcTxiLJbkxsdtDD 
<< zSgttxuC0lSFDyIITsH6xUzxH1/aacR9f2mvoGvf9tKUpSlKUr//2Q== 
<< quit 
+0

당신은 1000 명이 넘었지만 아무 코드도 게시하지 않았습니다 ... –

+0

어제부터이 문제에 직면하고 있으며, 6 개월 이상 내 코드가 작동했습니다.이 오류가 언제 발생하는지 알고 싶습니다. netstat으로 연결을 확인하고 디버그 파일도 업데이트했습니다. – ungalnanban

+0

'debug' 및'debug_level' 매개 변수를 설정 했습니까? 이렇게하면 무엇이 잘못되었는지에 대한 많은 정보를 얻을 수 있습니다. _connection not established_ 오류는 소켓이 설정되지 않은 경우에 발생합니다 (예 :'$ obj -> {socket} '에 값이없는 경우 ** Perldoc!에서 문서화되어 있습니다!). 'Mail :: Sender-> new'를 할 때 반환 코드를 확인합니까? –

답변

0

당신은 나머지 메일이 오류가있어,

을 말한다. 내 코드를보다 다음 6개월을 일하고

, 내가 어제 당신의 코드가 아닙니다 제안합니다,하지만 네트워크를 함께 할 수있는 뭔가

또는 이후이 문제에 직면하고있어 메일 서버. 디버그 출력의 일부를 캡처하여 작업이 중단 된 상황을 정확하게 파악해야합니다.

메일 서버의 속도 제한 설정 일 수도 있습니다.이 경우 각 메시지 사이에 잠시 멈추거나 많은 양의 메시지를 병렬로 보내지 않으면 도움이됩니다. 또한 일부 메일 서버는 잘못된 메시지/주소가 제출되면 연결을 거부하거나 느리게 시작할 수 있습니다.

관련 문제