slanje email-a sa forme PROBLEM

[ mmilinca @ 27.10.2005. 13:51 ] @

Dim ImeProd As String = txtMaloprod.Text()

Try
Dim myMail As New MailMessage
Dim MyMailServer As SmtpMail
'myMail.From = "[email protected]"
myMail.From = ImeProd
myMail.To = "[email protected]"
myMail.Subject = "dnevni izvestaj-" & ImeProd
myMail.Priority = MailPriority.Low
myMail.BodyFormat = MailFormat.Html
myMail.Body = "<html><body>izvestaj - success</body></html>"
Dim myAttachment As New MailAttachment("C:\mysql-4.1.7\data\test\customer.myd", MailEncoding.Base64)
myMail.Attachments.Add(myAttachment)
Dim myAttachment2 As New MailAttachment("C:\mysql-4.1.7\data\test\sale.myd", MailEncoding.Base64)
myMail.Attachments.Add(myAttachment)
MessageBox.Show("dodao sam attachmente")
'SmtpMail.SmtpServer = "MyMailServer"
MyMailServer.SmtpServer = "MaliServerName"
MessageBox.Show("dodelio sam server")
SmtpMail.Send(myMail)
MessageBox.Show("poslao sam poruku")
Catch ex As Exception
MessageBox.Show("greska u slanju poruke zbog servera")
End Try

Prijavljuje mi grsku CDO.Message ne moze pristupiti

Sta traba da stavim kao MailServer

Help please

[ veljkoz @ 28.10.2005. 14:15 ] @

Nisam nikad koristio slanje mailova, ali logicno mi je da stavis ime SMTP servera koji koristis za postu. Npr: smtp.eunet.yu, ili slicno (naravno, moras biti konektovan na net :) ). Isto kao sto podesavas mail klijent (Outlook, The Bat, ili sta vec)... on ce onda koristeci taj SMTP server da posalje poruku kao da si je poslao iz obicnog Outlooka...

[ mmilinca @ 29.10.2005. 13:10 ] @

Dobijam poruku, nakon tvog saveta

An unhandled exception of type 'System.Web.HttpException' occurred in system.web.dll

Additional information: Could not access 'CDO.Message' object.

[ veljkoz @ 29.10.2005. 18:38 ] @

Da li to saljes sa web strane ili iz Win aplikacije?
Ako je sa web strane, da li isprobavas na nekom serveru ili kod sebe (na lokalnom racunaru)? Moguce je da nije dobro uspostavljena komunikacija sa serverom (ako je na serveru uopste dozvoljeno da saljes mail-ove)... dalje od ovoga ne znam

[ Oliver Klaćik @ 30.10.2005. 12:51 ] @

Pokušaj sada. Ne treba staviti ime MailServer-a, jer će onda koristiti podrazumevani. Meni je uspelo...

Naravno, pretpostavljam da imaš instaliran IIS.

Code:
        Dim ImeProd As String = txtMaloprod.Text()

        Try
            Dim myMail As New MailMessage
            Dim MyMailServer As SmtpMail
            'myMail.From = "[email protected]"
            myMail.From = ImeProd
            myMail.To = "[email protected]"
            myMail.Subject = "dnevni izvestaj-" & ImeProd
            myMail.Priority = MailPriority.Low
            myMail.BodyFormat = MailFormat.Html
            myMail.Body = "<html><body>izvestaj - success</body></html>"
            Dim myAttachment As New MailAttachment("C:\mysql-4.1.7\data\test\customer.myd", MailEncoding.Base64)
            myMail.Attachments.Add(myAttachment)
            Dim myAttachment2 As New MailAttachment("C:\mysql-4.1.7\data\test\sale.myd", MailEncoding.Base64)
            myMail.Attachments.Add(myAttachment)
            MessageBox.Show("dodao sam attachmente")
            'SmtpMail.SmtpServer = "MyMailServer"
            'MyMailServer.SmtpServer = "MaliServerName"
            MessageBox.Show("dodelio sam server")
            SmtpMail.Send(myMail)
            MessageBox.Show("poslao sam poruku")
        Catch ex As Exception
            MessageBox.Show("greska u slanju poruke zbog servera")
        End Try

[ mmilinca @ 31.10.2005. 07:34 ] @

Sorry, za oduzimanje vremena svima.
E mail saljem sa forme iz Win aplikacije, nemam IIS, pa je pojava problema logicna.
Da li je moguca varijanta slanja preko Outlook-a, probao sam ovo:

Private Sub mnuDBEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDBEmail.Click
Dim oOutlook As New Outlook.Application
Dim oMailitem As Outlook.MailItem
Dim oAttach As Outlook.Attachment
oMailitem = oOutlook.CreateItem(Outlook.OlItemType.olMailItem)
oMailitem.To = "[email protected]"
oMailitem.Subject = "My Subject"
Try
oMailitem.Attachments.Add("C:\dump.sql")
Catch ex As Exception
End Try
MessageBox.Show("Na poruku iz Outlook-a klikni dugme YES", "UPOZORENJE")
oMailitem.Send()
MessageBox.Show("Prosla je naredba za slanje")
End Sub

U aplikaciji sve prodje, ali se poruka ne posalje .
Kada pogledam outbox u Outlook-u vidim da je poruka tu, ne moze da se posalje ni iz Outlook-a, daje poruku o gresci
553 sorry, that domain isn't in my list of allowed rcpthosts (#5.7.1)

Gde mogu da promenim tu listu dozvoljenih rcphosts?

Sorry jos jednom zbog gluposti!!!

[ Oliver Klaćik @ 01.11.2005. 20:37 ] @

Sada sam pokušao ovaj tvoj kod i meni je prošla poruka. Trebalo bi da je primiš.
Pokušaću da vidim koji je to tip greške, ali bih ti ja opet preporučio da mail šalješ putem IIS-a, jer deluje elegantije (bar meni).

[ mmilinca @ 02.11.2005. 13:14 ] @

I kod mene sa nekim izmenama prodje kroz aplikaciju, ali poruka ne stigne na odrediste

[ Oliver Klaćik @ 02.11.2005. 17:47 ] @

Kako bre? Meni je probna poruka stigla. Jel' tebi stigla poruka od mene? Koju verziju Outlook-a koristiš?

Evo ti objašnjenje za grešku koju dobijaš: http://office.microsoft.com/en-gb/assistance/HA011128331033.aspx

_{[Ovu poruku je menjao Oliver Klaćik dana 02.11.2005. u 19:16 GMT+1]}

[ ivan74 @ 03.11.2005. 09:18 ] @

Kod mene ovo radi najnormalnije vec neko duze vreme

Code:

Private Sub SendMail(ByVal strTo As String, ByVal strSub As String, ByVal strMsg As String)

        Dim olApp As Outlook.Application
        Dim olNS As Outlook.NameSpace
        Dim olMessage As Outlook.MailItem

        olApp = CreateObject("Outlook.Application")
        olNS = olApp.GetNamespace("MAPI")

        olMessage = olApp.CreateItem(Outlook.OlItemType.olMailItem)
        olMessage.To = strTo
        olMessage.Subject = strSub
        olMessage.Body = strMsg

        olMessage.Send()
        olApp.Quit()

        olApp = Nothing
        olNS = Nothing
        olMessage = Nothing

    End Sub

A moze i ovako

Code:

Dim psi As New ProcessStartInfo
        psi.UseShellExecute = True
        psi.FileName = _
             "mailto:" & System.Web.HttpUtility.UrlEncode("[email protected]") & _
             "?subject=" & System.Web.HttpUtility.UrlEncode("tema") & _
             "&body=" & System.Web.HttpUtility.UrlEncode("tekst", System.Text.Encoding.BigEndianUnicode)
        Process.Start(psi)