Function to send Email (ASP.Net)

 If you want to send email using ASP.Net or VB.Net, you can use the function like function below.

-------------- Function-----------------------------
  Public Shared Function SendEmail(ByVal strFrom As String, ByVal strSubject As String, ByVal strAddressTo As String, ByVal strAddressCC As String, ByVal strAddressBCC As String, ByVal strBodyMessage As String) As Boolean
        Dim EmailMessage As New MailMessage
        Dim EmailClient As New SmtpClient(SMTPServer)

        Try
            EmailMessage.Subject = strSubject
            EmailMessage.From = strFrom

            EmailMessage.To.Add(strAddressTo)
            EmailMessage.CC.Add(strAddressCC)
            EmailMessage.Bcc.Add(strAddressBCC )
            EmailMessage.Body = strBodyMessage
            EmailMessage.IsBodyHtml = True
            EmailClient.Send(EmailMessage)

            Return True
        Catch ex As Exception
            Throw
        End Try
    End Function

Comments

Post a Comment

Popular posts from this blog

karimun ganti alternator 70A

Image
Tanggal 26 november 2011 kemarin terjadi sesuatu hal yang menguras kantong ajaib alias "dompet". gimana tidak, selama perjalanan ke mangga dua, AC mati. setelah benerin AC, malah Aki keok, untung ada bengkel. setelah ganti aki baru, indikator aki masih nyala di kabin driver. karena istri gak mau service atau beli alternator 2nd. akhirnya tanggal 4 desember 2011 kemarin kepasang deh alternator 70 A merk BOSCH pada acara Gathering Karimun Kaskus ke-3. Berikut komentar salah satu member Karimun Kaskus, Om HT (yang masang alternator di karimun saya) : Halah sampe saya juga lupa lapor mengenai alternator , syukur deh saya bisa bantu temen2 lagi dengan tersedianya alternator optional 70 amp, dengan harga bersahabat dalam keadaan baru gress yang plek dengan karimun, seharga 800.000 saja tanpa pasang dan belom berikut ongkir, Ritual pemasangan : Pulley alternator beda dengan mm, tapi disiasati dengan menukar...
Read more

FOUR Productivity FEYNMAN- strategies

Ada twit yang menarik FOUR Productivity FEYNMAN- strategies: i) Stop trying to know-it-all. ii) Don't worry about what others are thinking. iii) Don't think about what you want to be, but what you want to do. iv) Have a sense of humor and talk honestly. pic.twitter.com/NMtwmpWECk — Prof. Feynman (@ProfFeynman) July 1, 2018 namun yang menarik lagi di komentarnya, banyak komentar menarik yang juga dapat dijadikan bahan pembelajaran diri. Salah satu komentarnya berisi  jika kita sudah mengetahui semuanya, kita sudah mati . Hal ini berarti " belajar, tidak ada batas waktu ".
Read more

Format Date SQL Server

Sebenarnya artikel kali ini hanyalah catatan saya menggunakan format date di SQL Server. Saya sering kali lupa harus menggunakan fungsi yang mana untuk melakukan format pada sebuah tanggal. Kejadiannya, saya memerlukan hanya untuk mengambil tanggalnya saja dari penulisan tanggal yang lengkap (tanggal, bulan, tahun). Berbekal dari 2 rujukan: https://stackoverflow.com/questions/28842873/convert-sql-server-date-to-mm-yyyy https://docs.microsoft.com/en-us/sql/t-sql/functions/datepart-transact-sql?view=sql-server-2017 Akhirnya saya menemukan apa yang saya butuhkan. select getdate() >> 2019-01-22 11:14:32.630 select format(getdate(), 'dd') >> 22  select datepart(day,getdate()) >> 22
Read more