EXCEL GÜNÜ GELDİĞİNDE MAİL ATMA

Опубликовано: 10 Февраль 2024
на канале: faruk çubukçu

1,553

EXCEL GÜNÜ GELDİĞİNDE MAİL ATMA
EXCEL VBA GÜNÜ GELDİĞİNDE MAİL ATMA
EXCEL VBA ORTAMINDA PROTOTİP BİR ÇALIŞMA
EXCEL VBA ORTAMINDA VISUAL BASIC PROGRAMLAMA İLE BİR ÇALIŞMA

SİZLER GELİŞTİREBİLİRSİNİZ.
TEST ETMEDEN / KONTROL ETMEDEN KODLARIMIZI KULLANMAYINIZ

Option Explicit

Sub mail()
Dim SATIR, SONSATIR As Long

Dim outapp As Object
Dim outmail As Object
Dim OnceGun As Integer

Set outapp = CreateObject("outlook.application")
Set outmail = outapp.createitem(0)
' referans ekleme?

Application.ScreenUpdating = False

With ThisWorkbook.Sheets("Sheet1")

SONSATIR = .Range("b1").End(xlDown).Row

For SATIR = 2 To SONSATIR
' tüm satırları okumak için

OnceGun = .Cells(SATIR, 4)

If Format(.Cells(SATIR, 5), "dd.mm.yyyy") = Format(Date + OnceGun, "dd.mm.yyyy") _
And Not .Cells(SATIR, 6) = "ATILDI" Then

With outmail
.To = ThisWorkbook.Sheets("Sheet1").Cells(SATIR, 2)
.Cc = ""
.Bcc = ""
.Subject = ThisWorkbook.Sheets("Sheet1").Cells(SATIR, 3) & " BAKIM ZAMANI " _
& Format(ThisWorkbook.Sheets("Sheet1").Cells(SATIR, 5), "dd.mm.yyyy")
'.Display
.HTMLBody = ThisWorkbook.Sheets("Sheet1").Cells(SATIR, 3) & " BAKIM ZAMANI " _
& Format(ThisWorkbook.Sheets("Sheet1").Cells(SATIR, 5), "dd.mm.yyyy")
.Send

End With

.Cells(SATIR, 6) = "ATILDI"
End If

Next SATIR

End With

Application.ScreenUpdating = True

Set outapp = Nothing
Set outmail = Nothing

End Sub

Vba:
   • Excel VBA
vba eğitim:
   • EXCEL VBA KOMPLE EĞİTİM SETİ

   • EXCEL VBA PROGRAMLAMA KİTAP

Faruk Çubukçu - Bilgi Teknolojileri Danışmanlık
www.farukcubukcu.com www.excelakademi.com