[GR/EN][Help]Visual Basic

[ExTrEmEDwarf]

Hello, im searching for like 2 hours for it and i cant find anything

 

I want to open the default browser, and sentmail to my e-mail address, with no success.

 

So i used these

Public Class Form1
   Dim emailsend As String = "mailto:MyEmail@gmail.com?subject=You got Spam!&body=your body"

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       System.Diagnostics.Process.Start(emailsend) 'On Click open the process we declared
   End Sub
End Class

 

  Mail.To.Add("@gmail.com")
 Mail.Body = ("Body")

 Dim SMTP As New SmtpClient("smtp.gmail.com")
 SMTP.EnableSsl = True
 SMTP.Port = ("587")
   End Sub

 

 

Even System.Diagnostics.Process.Start("mailto:mail@gmail.com") doesnt allow to open the browser and sent mail with the default browser/mail server

 

Any suggestions?

[Stealth]

You specifically want to do this through browser or you just want to send an e-mail in general?Anyways gimme a few minutes I could write you a class/sub with email functionality.

 

General sub (I coded quickly based on what you told):

 

Sub SendMail(ByVal fromWho As String, ByVal toWho As String, ByVal subject As String, ByVal text As String)
        Dim _mailMsg As New MailMessage(fromWho, toWho)
        _mailMsg.Subject = subject
        _mailMsg.SubjectEncoding = Encoding.ASCII 'Allazei analoga me to ti thes na stileis.
        _mailMsg.Body = text
        Dim _mailClient As New SmtpClient("smtp.gmail.com", 587)
        _mailClient.EnableSsl = True
        _mailClient.Credentials = New NetworkCredential("gmail_username", "gmail_password") 'ena gmail mail edw
        Try
            _mailClient.Send(_mailMsg)
            MsgBox("Mail has been sent!")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

[ExTrEmEDwarf]

[GR]

 

Δεν θέλω να στέλνει mail με δικό μου κωδικό, έχω account g-mail και θέλω να ανοίγει το default mail server ή να ανοίγει browser και να έχει αυτόματα το e-mail μου στους παραλήπτες

 

Θέλω να πατάνε ένα link που να ανοίγει τον browser και να στέλνουν με το δικό τους mail σε εμένα, σαν contact me :)

[Hax0r]

Προτιμότερο θα ήταν να το κάνεις ολοκληρωτικά αυτό το contact me μέσα από το πρόγραμμα.

 

Γιατί αλλιώς μπλέκεται και το API της όποιας υπηρεσίας mail. Για να είμαι ειλικρινείς δεν ξέρω αν γίνεται...

[ExTrEmEDwarf]

Το κατάλαβα γι αυτό έβαλα το mail μου σε εικόνα και χωρίς links :p

Τώρα έχω πρόβλημα σε άλλο πρόγραμμα, το παλεύω κάμποση ώρα

 

Έχω φτιάξει minimize to tray function αλλά δεν επιστρέφει.

 

Το πρόβλημα είναι οτι το form border style το έχω βάλει none, γιατί όλο το gui είναι μία μεμονομένη εικόνα.

Οπότε το minimize αναγκαστικά έγινε PictureBox και δεν θέλει να ανοίξει απο το system tray :|

 

Έχω δοκιμάσει τα εξής μέχρι τώρα (Και baloon tip)

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If Me.WindowState = FormWindowState.Normal Then
            Me.Hide()
        Else
            Me.Show()
            Me.WindowState = FormWindowState.Minimized
        End If
        NotifyIcon1.ShowBalloonTip(3000, "Dromos FM", "The window is still running here..", ToolTipIcon.Info)
    End Sub

 

και

 

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If Me.Visible = True Then
            Me.Hide()
        Else
            If Me.Visible = False Then
                Me.Show()
            End If
        End If
        NotifyIcon1.ShowBalloonTip(3000, "Dromos FM", "The window is still running here..", ToolTipIcon.Info)
    End Sub

[Stealth]

Me diplo klik epanerxetai. (Pano sto notify icon)

 

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        Me.Visible = True
'Me.Show
        Me.WindowState = FormWindowState.Normal
    End Sub

 

 

Mporeis na xrisimopoihseis gia na stileis mail se esena kai apla mesa sto body text mporeis na perilamvaneis to mail tou px gia na ksereis poios to esteile gt sta headers tha sou dixnei to mail sou. (mexri na vro kapoia alli lisi)

[ExTrEmEDwarf]

Κάπου κάνω λάθος είμαι σίγουρος.

 

Και άλαξα το double click σε μονό κλικ (Μην ξεχνάς πως είναι pixturebox γιατί το borderstyle είναι none και δεν έχει εικονίδιο για minimize)

 

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        If Me.Visible = True Then

            Me.Hide()

        Else

            If Me.Visible = False Then

                Me.WindowState = FormWindowState.Normal

            End If

        End If

        NotifyIcon1.ShowBalloonTip(3000, "Dromos FM", "The window is still running here..", ToolTipIcon.Warning)

    End Sub

 

 

 

Έβαλα και me.show() κάτω απο το Me.WindowState = FormWindowState.Normal και πάλι τα ίδια

 

:/

 

Μην ψάξεις για το mail, δεν πειράζει. Ίσως να κάνω new form που να έχει υποχρεωτικά το e-mail field και θα τα στέλνει με ένα διαφορετικό mail που θα φτιάξω

[Stealth]

Κάπου κάνω λάθος είμαι σίγουρος.

 

NotifyIcon1_MouseDoubleClick i NotifyIcon1_MouseClick oxi PictureBox1_Click...

[ExTrEmEDwarf]

Μα αφού όταν πατάω κλικ στο picturebox1 κάνει minimize, δεν έχει εικονίδιο για ελαχιστοποίηση και έχω το me.hide() εκεί

[Stealth]

Μα αφού όταν πατάω κλικ στο picturebox1 κάνει minimize, δεν έχει εικονίδιο για ελαχιστοποίηση και έχω το me.hide() εκεί

 

Gia na to epanafereis xreiazesai to notifyicon1 pou logika sou deixnei sto tray...To epanafereis apo to notifyIcon kanontas diplo klik panw tou, den yparxei tropos na to epanafereis alliws otan einai aorato to form (ektos an valeis hotkey).

 

Des auto mia na katalaveis ti ennow: http://www.mediafire.com/?cmnrlh4vhun26rb

[ExTrEmEDwarf]

Το έφτιαξα!

 

 

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        If Me.Visible = True Then

            Me.Hide()

        End If

        NotifyIcon1.ShowBalloonTip(3000, "Dromos FM", "The window is still running here..", ToolTipIcon.Warning)

    End Sub

    Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick

        If Me.Visible = False Then

            Me.WindowState = FormWindowState.Normal

            Me.Show()

        End If

    End Sub

 

Αφήνω ανοιχτό το τοπικ αν χρειαστώ περεταίρω βοήθεια