Makro ile mail atamıyorum

[cem1473]

Arkadaşlar,
Ekteki dosyada A kolnunda malzeme ismi B kolonundan malzemenin sahibi C kolonunda geliş tarihi D kolonunda geliş tarihinden 3 gün sonrası E kolonunda malzemenin sahibi mail adresi F kolonunda malzeme sahibinin müdürünün maili mevcut. Yapmak istediğim, Makro çalıştırdığımda malzeme sahibine gelen malzemelerini mail atmasını istiyorum. Birde eğer malzeme geliş tarihin 3 gün geçmişse bu maili malzeme sahibinin müdürüne ve sahibine beraber yollamasını istiyorum. Biraz zor bir iş fakat bayağı uğraştık ama bir türlü yapamıyoruz. Lütfen yardım.
Bu arada göndereceğimiz mailleri bilgisayarda kurulu olan outlook üzerinden yollayacak...

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Sub mailat()
    Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
     With NewMail
      For i = 2 To [d65536].End(3).Row
        adres = IIf(Cells(i, "d") <= Date, Cells(i, "e") & ";" & Cells(i, "f"), Cells(i, "e"))
        If Cells(i, "d") <= Date Then
            .To = adres
            .Subject = "deneme"
            .Body = Cells(i, "a")
            .Send
        End If
      Next
     End With
     Set NewMail = Nothing
     Set OutApp = Nothing
End Sub

 

[cem1473]

Set OutApp = New Outlook.Application
Bu satırda compile error veriyor. Yanlış bir şeymi yapıyoruz?

Aşağıdaki şekilde dener misiniz ?

Sub mailat()
    Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
     With NewMail
      For i = 2 To [d65536].End(3).Row
        adres = IIf(Cells(i, "d") <= Date, Cells(i, "e") & ";" & Cells(i, "f"), Cells(i, "e"))
        If Cells(i, "d") <= Date Then
            .To = adres
            .Subject = "deneme"
            .Body = Cells(i, "a")
            .Send
        End If
      Next
     End With
     Set NewMail = Nothing
     Set OutApp = Nothing
End Sub

 

[hamitcan]

'Referanslardan Microsoft Outlook X.X Object Library seçili olmalıdır.*

 

[Sa.NaL]

Okundu Bilgisi

Aşağıdaki şekilde dener misiniz ?

Sub mailat()
    Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
     With NewMail
      For i = 2 To [d65536].End(3).Row
        adres = IIf(Cells(i, "d") <= Date, Cells(i, "e") & ";" & Cells(i, "f"), Cells(i, "e"))
        If Cells(i, "d") <= Date Then
            .To = adres
            .Subject = "deneme"
            .Body = Cells(i, "a")
            .Send
        End If
      Next
     End With
     Set NewMail = Nothing
     Set OutApp = Nothing
End Sub

Yukarıdaki gibi outlookda mail yollarken hamit bey teslim ve okundu bilgisi isteme kodu nedir acaba. yardımcı olursanız sevinirim.İyi çalışmalar

 

[hamitcan]

Bu kodu, ThisOutlookSession bölümüne ekleyin.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Class <> olMail Then Exit Sub
Dim r As Recipient
For Each r In Item.Recipients
If StrComp(r.Address, "rishi.bhardwaj@abc.com", vbTextCompare) = 0 Then
Item.ReadReceiptRequested = True
MsgBox "Requesting Read Receipt from " & r.Name
End If
Next
End Sub

Kaynak: http://www.eggheadcafe.com/software/aspnet/29708747/read-receipt--vba.aspx

 

[cem1473]

Yardımlarından dolayı, Teşekkür ederim.