merhaba arkadaşlar, outlook açılınca otomatik olarak ilgili dosyayı gönderen,ThisOutlookSession kısmında makrom var ama ne yazık ki çalışmıyor, daha doğrusu çalışıyor, devreye giriyor ama outlook tam yüklenemediğinden ş iptal oluyor heralde, göndermiyor, ve bir uyarı da vermiyor. zamanlayıcılar işimi görmez bu yüzden onları kullanmak istemiyorum neden, çünkü diyelim ki 5 saniye sleep ettim, e ya yine açılmazsa ne olacak? bu yüzden bana "outlook tam açılınca devreye geçen bir tetikleme gerekiyor, yardımlarınızı bekliyorum, şimdiden teşekkürler.


Private Sub Application_Startup()




Dim oOutlook As Object

On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0

If oOutlook Is Nothing Then
MsgBox "outlook açık değil , lütfen bekleyin"
Else



Dim Makro As Object
Dim Mail As Object


Set Makro = Outlook.Application
Set Mail = Makro.CreateItem(0)


Dim x1, x2 As String
x1 = "sincandhgidertahakkuk2@outlook.com"
x2 = "[email protected]"

For i = 1 To 2
'On Error Resume Next
With Mail
.To = (x & i)
.CC = ""
.BCC = ""
.Subject = "Bitiş Tarihi Yaklaşan Kayıtlar"
.Body = "Açık ihalelere ait teminat ve sözleşme bitiş tarihi yaklaşan kayıtlar ektedir, saygılarımla."
.Attachments.Add ("C:\uyarı7\fileAllertSystemForAccess\tarihiYaklaşanlar.xlsx")
.Send
End With
'On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
Next

End If
End Sub