Aşağıdakli kodları kullanarak mail gönderiyorum. Ama
MS Outlook uyarı mesajı veriyor. "Gönderi yapılmak isteniyor kabul ediyormusun. gibi". Bu uyarı mesajını almadan nasıl yapabilirim.
Application.DisplayAlerts = False -- Kullandım olmuyor.
Saygılar.
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
For T = 0 To 52
If Worksheets("YARDIM").Cells(6 + T, 2) <= Date Then
If Worksheets("YARDIM").Cells(6 + T, 3) >= Date Then
HAFTA = Worksheets("YARDIM").Cells(6 + T, 4)
End If
End If
Next T
For P = 0 To 1
If Worksheets("Firma İçi").Cells(6 + P, 7) < HAFTA Then
If Worksheets("Firma İçi").Cells(6 + P, 10) = "" Then
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "xxxxxxxx@xxxxx"
.Subject = "cccccccccc"
.Body = "dddddddd "
'.Attachments.Add "C:\Test.xls"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End If
End If
Next P
MS Outlook uyarı mesajı veriyor. "Gönderi yapılmak isteniyor kabul ediyormusun. gibi". Bu uyarı mesajını almadan nasıl yapabilirim.
Application.DisplayAlerts = False -- Kullandım olmuyor.
Saygılar.
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
For T = 0 To 52
If Worksheets("YARDIM").Cells(6 + T, 2) <= Date Then
If Worksheets("YARDIM").Cells(6 + T, 3) >= Date Then
HAFTA = Worksheets("YARDIM").Cells(6 + T, 4)
End If
End If
Next T
For P = 0 To 1
If Worksheets("Firma İçi").Cells(6 + P, 7) < HAFTA Then
If Worksheets("Firma İçi").Cells(6 + P, 10) = "" Then
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "xxxxxxxx@xxxxx"
.Subject = "cccccccccc"
.Body = "dddddddd "
'.Attachments.Add "C:\Test.xls"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End If
End If
Next P