Merhaba arkadaşlar bu yazımızda excel vba ile nasıl mail gönderilir onu göstereceğim.
Mail gönderme fonksiyonunu sizler için aşağıda paylaşıyorum.
Öncelikle mail gönderme işlemini yapmanız için bilgisayarınızda outlook ve outlook'ta bir mail hesabı kurulu olmalıdır. Aksi takdirde gönderemezsiniz.
1 dakikada nasıl mail göndereceğinizi öğrenmek için aşağıdaki linkten youtube videomuzdan hemen izleyebilirsiniz.
Mail gönderme kodu :
Mail gönderme fonksiyonunu sizler için aşağıda paylaşıyorum.
Öncelikle mail gönderme işlemini yapmanız için bilgisayarınızda outlook ve outlook'ta bir mail hesabı kurulu olmalıdır. Aksi takdirde gönderemezsiniz.
1 dakikada nasıl mail göndereceğinizi öğrenmek için aşağıdaki linkten youtube videomuzdan hemen izleyebilirsiniz.
Mail gönderme kodu :
Kod:
Function EpostaGonder()
Dim OutlookApp As Object
Dim MailItem As Object
' Outlook uygulamasını başlat
Set OutlookApp = CreateObject("Outlook.Application")
' Yeni bir e-posta iletisi oluştur
Set MailItem = OutlookApp.CreateItem(0)
' E-posta ile ilgili bilgileri doldurun
With MailItem
.To = "alici@ornek.com"
.Subject = "Konu"
.Body = "E-posta içeriği"
' CC (Kopyala) ve BCC (Gizli Kopyala) adreslerini eklemek için aşağıdaki satırları kullanabilirsiniz:
'.CC = "kopyalanan@ornek.com"
'.BCC = "gizli_kopyalanan@ornek.com"
' E-posta ekleri eklemek için aşağıdaki satırları kullanabilirsiniz:
'.Attachments.Add "C:\Dosya\DosyaAdi.pdf"
' E-postayı gönder
.Send
End With
' Kullanılan nesneleri serbest bırak
Set MailItem = Nothing
Set OutlookApp = Nothing
End Function