Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Почтовик Добавлено: 15.09.08 20:36  

Автор вопроса:  pasha | ICQ: 209913513 
Люди добрые! Помогите найти исходники почтовой программы и клиента и сервера. Очень надо :)

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 BUMM ®



Вопросов: 8
Ответов: 482
 Профиль | | #1 Добавлено: 15.09.08 20:57
http://www.google.it/search?hl=it&q=VB.NET+mail&meta=

Ответить

Номер ответа: 2
Автор ответа:
 pasha



ICQ: 209913513 

Вопросов: 10
Ответов: 45
 Профиль | | #2 Добавлено: 16.09.08 10:23
большое спасибо.
Только вот вопросик маленький. А нет ли у кого-нибудь нормальной компаненты "ChilkatDotNet2.dll". А то там триал версия :)

Ответить

Номер ответа: 3
Автор ответа:
 pasha



ICQ: 209913513 

Вопросов: 10
Ответов: 45
 Профиль | | #3 Добавлено: 16.09.08 11:45
Ребят помогите. Вот этот код не работает.

  1. Imports System.Web.Mail
  2.     
  3. Sub Main()
  4.         Dim strMSG As String
  5.         Dim strArgs() As String = Command.Split(",")
  6.         Dim blnSMTP As Boolean = False
  7.         Dim blnCC As Boolean = False
  8.         Dim blnAttachments As Boolean = False
  9.  
  10.         'get the product name, version and description from the assembly
  11.         strMSG = vbCrLf + vbCrLf + _
  12.           System.Diagnostics.FileVersionInfo.GetVersionInfo( _
  13.       System.Reflection.Assembly.GetExecutingAssembly.Location).ProductName _
  14.               + " v" + System.Diagnostics.FileVersionInfo.GetVersionInfo( _
  15.       System.Reflection.Assembly.GetExecutingAssembly.Location _
  16.             ).ProductVersion + vbCrLf + _
  17.          System.Diagnostics.FileVersionInfo.GetVersionInfo( _
  18.          System.Reflection.Assembly.GetExecutingAssembly.Location _
  19.               ).Comments + vbCrLf + vbCrLf
  20.  
  21.         If UBound(strArgs) < 3 Then
  22.             strMSG = strMSG + "Usage: EPSendMail from@email.com, " + _
  23.                    "to@email.com, subject, message, [smtp Server],"  + _
  24.                    "[cc1@email.com;cc2@email.com;...], [attachment1;" + _
  25.                         "attachment2;...]" + vbCrLf
  26.             Console.Write(strMSG)
  27.             Exit Sub
  28.         End If
  29.  
  30.         strMSG = strMSG + "Sending email message" + vbCrLf + _
  31.             "  From        --> " + Trim(strArgs(0)) + vbCrLf + _
  32.             "  To          --> " + Trim(strArgs(1)) + vbCrLf + _
  33.             "  Subject     --> " + Trim(strArgs(2)) + vbCrLf + _
  34.             "  Message     --> " + Trim(strArgs(3)) + vbCrLf
  35.         If UBound(strArgs) >= 4 Then
  36.             If Len(Trim(strArgs(4))) > 0 Then
  37.                 blnSMTP = True
  38.                 strMSG = strMSG + "  SMTP Server --> " + Trim(strArgs(4)) + _
  39.                    vbCrLf
  40.             End If
  41.         End If
  42.         If UBound(strArgs) >= 5 Then
  43.             If Len(Trim(strArgs(5))) > 0 Then
  44.                 blnCC = True
  45.                 strMSG = strMSG + "  CC          --> " + Trim(strArgs(5)) + _
  46.                    vbCrLf
  47.             End If
  48.         End If
  49.         If UBound(strArgs) >= 6 Then
  50.             If Len(Trim(strArgs(6))) > 0 Then
  51.                 blnAttachments = True
  52.                 strMSG = strMSG + "  Attachments --> " + Trim(strArgs(6)) + _
  53.                    vbCrLf
  54.             End If
  55.         End If
  56.         Console.Write(strMSG)
  57.  
  58.         'send the email
  59.         Try
  60.             Dim insMail As New MailMessage()
  61.             With insMail
  62.                 .From = Trim(strArgs(0))
  63.                 .To = Trim(strArgs(1))
  64.                 .Subject = Trim(strArgs(2))
  65.                 .Body = Trim(strArgs(3))
  66.                 If blnCC Then .Cc = Trim(strArgs(5))
  67.                 If blnAttachments Then
  68.                     Dim strFile As String
  69.                     Dim strAttach() As String = Split(strArgs(6), ";")
  70.                     For Each strFile In strAttach
  71.                         .Attachments.Add(New MailAttachment(Trim(strFile)))
  72.                     Next
  73.                 End If
  74.             End With
  75.             If blnSMTP Then SmtpMail.SmtpServer = Trim(strArgs(4))
  76.  
  77.             SmtpMail.Send(insMail)
  78.  
  79.             Console.WriteLine("Successfully sent email message" + vbCrLf)
  80.  
  81.         Catch err As Exception
  82.             Console.WriteLine("EXCEPTION " + err.Message + vbCrLf)
  83.         End Try
  84.  
  85.     End Sub

Ответить

Номер ответа: 4
Автор ответа:
 pasha



ICQ: 209913513 

Вопросов: 10
Ответов: 45
 Профиль | | #4 Добавлено: 16.09.08 11:46
использую VS Team System 2008

Ответить

Номер ответа: 5
Автор ответа:
 pasha



ICQ: 209913513 

Вопросов: 10
Ответов: 45
 Профиль | | #5 Добавлено: 17.09.08 11:01
С этим разобрался. Оказалось все не так сложно :)
Но вот есть другой вопрос. Для меня пока неразрешимый. Подскажите люди добрые :)

Вот получаю я письмо через POP3 с вложением. Так вот необходимо это вложение как то выдрать оттуда и сохранить на диск. Вложение находится в теле письма я так понимаю:


&#65533;&#65533;&#65533; &#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533; &#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533; &#65533; &#65533;&#65533;&#65533;&#65533;&#65533;&#65533;&#65533; MIME.

------=_NextPart_000_0012_01C918B3.03B891D0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0013_01C918B3.03BADBC0"


------=_NextPart_001_0013_01C918B3.03BADBC0
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit

Vlojenie




__________ NOD32 3447 (20080916) Information __________

This message was checked by NOD32 antivirus system.
http://www.eset.com

------=_NextPart_001_0013_01C918B3.03BADBC0
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">
<meta name=3DGenerator content=3D"Microsoft Word 12 (filtered medium)">
<style>
<!--
 /* Font Definitions */
 @font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
..MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:612.0pt 792.0pt;
margin:2.0cm 42.5pt 2.0cm 3.0cm;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext=3D"edit" spidmax=3D"1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext=3D"edit">
  <o:idmap v:ext=3D"edit" data=3D"1" />
 </o:shapelayout></xml><![endif]-->
</head>

<body lang=3DRU link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

<p class=3DMsoNormal><span lang=3DEN-US>Vlojenie<o:p></o:p></span></p>

</div>

<BR>
<BR>
__________ NOD32 3447 (20080916) Information __________<BR>
<BR>
This message was checked by NOD32 antivirus system.<BR>
<A HREF=3D"http://www.eset.com">http://www.eset.com</A><BR>

</body>

</html>

------=_NextPart_001_0013_01C918B3.03BADBC0--

------=_NextPart_000_0012_01C918B3.03B891D0
Content-Type: text/plain;
name="test.txt"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="test.txt"

3fLuIPLl8fLu4vvpIOTu6vPs5e3y

------=_NextPart_000_0012_01C918B3.03B891D0--



и вот как это сделать ума не приложу

Ответить

Номер ответа: 6
Автор ответа:
 pasha



ICQ: 209913513 

Вопросов: 10
Ответов: 45
 Профиль | | #6 Добавлено: 17.09.08 14:14
что ж никто не поможет? :

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам