Отправка почты на Visual Basic .Net или в дельфи

[Alex88888]

во многих языках программирования есть такой оператор, как отправка какой либо переменной на почту... вопрос такой: есть ли в Visual Basic .Net или в дельфи нечто подобное ? (желательно в Basic). Нужно написать прогу, которая отправляет насколько текстовых переменных на почту. Такую программу легко написать на PHP но проблема в том, что эта программа должна выглядеть как виндовс приложение в формате .exe .
очень рассчитываю на вашу помощь. заранее спасибо

[rainbow]

На делфи:
Юзай Mapi,
http://www.delphisources.ru/pages/fa...sing_mapi.html
Или можно так:
http://delphiworld.narod.ru/base/email_api.html
http://delphiworld.narod.ru/base/sen...ous_email.html
Или еще есть пример в Indy как отправлять письмо, где то был, но не могу найти.

[Diavol]

'---------------------------------------------------------------------
' This file is part of the Microsoft .NET Framework SDK Code Samples.
'
' Copyright (C) Microsoft Corporation. All rights reserved.
'
'This source code is intended only as a supplement to Microsoft
'Development Tools and/or on-line documentation. See these other
'materials for detailed information regarding Microsoft code samples.
'
'THIS CODE AND INFORMATION ARE PROVIDED AS IS WITHOUT WARRANTY OF ANY
'KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
'IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
'PARTICULAR PURPOSE.
'---------------------------------------------------------------------

Imports System.net.mail

Module Mailer

Enum MailMessagePart
ToAddress
FromAddress
Subject
Message
End Enum

Sub Main(ByVal args() As String)
If args.Length < 4 Then
Console.WriteLine( _
"Expected: mailer.exe [from] [to] [subject] [message]")
Exit Sub
End If

' Set mailServerName to be the name of the mail server
' you wish to use to deliver this message
Dim mailServerName As String = "smtphost"
Dim fromAddress As String = args(MailMessagePart.ToAddress)
Dim toAddress As String = args(MailMessagePart.FromAddress)
Dim subject As String = args(MailMessagePart.Subject)
Dim body As String = args(MailMessagePart.Message)

Try
' MailMessage is used to represent the e-mail being sent
Using message As _
New MailMessage(fromAddress, toAddress, subject, body)

' SmtpClient is used to send the e-mail
Dim mailClient As New SmtpClient(mailServerName)
' UseDefaultCredentials tells the mail client to use the
' Windows credentials of the account (i.e. user account)
' being used to run the application
mailClient.UseDefaultCredentials = True

' Send delivers the message to the mail server
mailClient.Send(message)
End Using
Console.WriteLine("Message sent.")
Catch ex As FormatException
Console.WriteLine(ex.Message)
Catch ex As SmtpException
Console.WriteLine(ex.Message)
End Try
End Sub
End Module

-----------------------------------------

Работает из командной строки:

mailer.exe [from] [to] [subject] [message]

----------------------------------------

Развилось программистов липовых:
книжки не читают
инетом не пользуются
Всем подавай только готовое.....