Selamlar. Firmam için hazırladığım bir Program hakkında yardımınız gerekli
Arkadaşlar bir sayfada alt alta 10 ürün oldugunu düşünün. Resimleri var. Yanında bir check box onun yanında da bir Miktar gireceği bir textbox var.
Bunu inceleyen müşteri teklif isteyeceği ürünü checkboxdan işaretleyecek. İşaretleyince yanındaki textbox açık hale gelecek ve müşteri miktarını girecek. Checkbox seçili değil ise textbox kapalı olacak birşey yazılamayacak. Müşteri diyelim 5 ürün ve miktar seçti. Aşağıda teklif ver butonuna basınca son kez yeni bir sayfada seçtikleri ürünler toptan bir görünecek. Ve teklifi ver butonuna basınca da bu bana mail olarak gelecek.
Mail Şu Şekilde Olabilir.
1.satır İlk Seçtiği Ürün , Miktarı
2.satır 2. Seçtiği Ürün , Miktarı
.... Gibi....(Veya Bu Bir Excele kaydolsa da bana excel dosyası gelse çok daha müthiş olur)
Şu anda kullandığım kodlar alttaki gibi ama , sadece bir textbox1 daki mail olarak geliyor. Diğerleri gelmiyor.
Diğer bir sorum bu kodlar gmail için. Ama ben kendi firma mailimi kullanıcam. "smtp.gmail.com" yerine ne yazmam gerektiğini nasıl bulabilirim.
Mantık Aslında basit gibi ama ben c biliyorum vb değil. O Nedenle işim değil. İlerde bu sistemi baya bi ilerletmek istiyorum çünkü 500 den fazla ürünümüz var. Bana en ufak yardımınızın önemi gerçekten büyük.. Bir bilgi ordan bir bilgi burdan toplaya toplaya bitiricem inşallah. Teşekkürler...
------------------------------------------------------------------------------------------------------
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Mail As New MailMessage
Try
Mail.From = New MailAddress("[email protected]")
Mail.To.Add(gö[email protected]")
Mail.Subject = "TEKLİF"
Mail.Body = TextBox1.Text
Mail.Body = TextBox2.Text (BURAYA YAZILANLAR MAİLDE GELMİYOR)
Mail.Body = TextBox3.Text (BURAYA YAZILANLAR MAİLDE GELMİYOR)
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = "587"
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "şifrem")
SMTP.Send(Mail)
Catch ex As Exception
End Try
End Sub
End Class
Arkadaşlar bir sayfada alt alta 10 ürün oldugunu düşünün. Resimleri var. Yanında bir check box onun yanında da bir Miktar gireceği bir textbox var.
Bunu inceleyen müşteri teklif isteyeceği ürünü checkboxdan işaretleyecek. İşaretleyince yanındaki textbox açık hale gelecek ve müşteri miktarını girecek. Checkbox seçili değil ise textbox kapalı olacak birşey yazılamayacak. Müşteri diyelim 5 ürün ve miktar seçti. Aşağıda teklif ver butonuna basınca son kez yeni bir sayfada seçtikleri ürünler toptan bir görünecek. Ve teklifi ver butonuna basınca da bu bana mail olarak gelecek.
Mail Şu Şekilde Olabilir.
1.satır İlk Seçtiği Ürün , Miktarı
2.satır 2. Seçtiği Ürün , Miktarı
.... Gibi....(Veya Bu Bir Excele kaydolsa da bana excel dosyası gelse çok daha müthiş olur)
Şu anda kullandığım kodlar alttaki gibi ama , sadece bir textbox1 daki mail olarak geliyor. Diğerleri gelmiyor.
Diğer bir sorum bu kodlar gmail için. Ama ben kendi firma mailimi kullanıcam. "smtp.gmail.com" yerine ne yazmam gerektiğini nasıl bulabilirim.
Mantık Aslında basit gibi ama ben c biliyorum vb değil. O Nedenle işim değil. İlerde bu sistemi baya bi ilerletmek istiyorum çünkü 500 den fazla ürünümüz var. Bana en ufak yardımınızın önemi gerçekten büyük.. Bir bilgi ordan bir bilgi burdan toplaya toplaya bitiricem inşallah. Teşekkürler...
------------------------------------------------------------------------------------------------------
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Mail As New MailMessage
Try
Mail.From = New MailAddress("[email protected]")
Mail.To.Add(gö[email protected]")
Mail.Subject = "TEKLİF"
Mail.Body = TextBox1.Text
Mail.Body = TextBox2.Text (BURAYA YAZILANLAR MAİLDE GELMİYOR)
Mail.Body = TextBox3.Text (BURAYA YAZILANLAR MAİLDE GELMİYOR)
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = "587"
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "şifrem")
SMTP.Send(Mail)
Catch ex As Exception
End Try
End Sub
End Class
