Forum

Outlookta yeni mail...
 
Bildirimler
Hepsini Temizle

Outlookta yeni mail geldiğinde popup açılması - Macro ile

5 Yazılar
3 Üyeler
0 Reactions
2,437 Görüntüleme
(@AydinSAGLAMBAS)
Gönderiler: 75
Estimable Member
Konu başlatıcı
 

Merhabalar ,

Outlookta yeni bir mail geldiğinde sağ tarafta alert çıkıyor fakat ben makro ile popup olarak çıksın istiyorum ve popup içeriğinde Subject , Gönderenin Maili ve Saati görünsün istiyorum mümkünmüdür ? 

İstek biraz fantazi olabilir ama uğraştım yapamadım yardımcı olursanız sevinirim. 

 
Gönderildi : 10/03/2015 17:58

(@riza-sahan)
Gönderiler: 18032
_
 

Merhaba,
http://www.howto-outlook.com/howto/newmailalert.htm buradan ulaşabilirsiniz. İşinize yarayabilir.

1984 doğumluyum. 4 yaşından bu yana İstanbul’da yaşıyorum. Sırası ile aşağıdaki okullarda eğitim gördüm. Paşaköy ilkokulu (1990-1995) Kartal Zekeriyya Güçer İlköğretim Okulu(1995-1998) Ümraniye Teknik ve Endüstri Meslek Lisesi Bilgisayar Bölümü(1998-2001) Kocaeli Üniversitesi Bilgisayar Programcılığı(2002-2004) Anadolu Ünv. İşletme Fakültesi(2006-2009) Lise yıllarından sonra bir bilgisayar firmasının teknik servisinde mesleğe merhaba dedim. Outsource olarak Citibank ytl ve bina taşınma projesinde yer alarak 8 ay görev yaptım. Bu görevden sonra şu an çalışmakta olduğum yerde bilgi işlem sorumlusu olarak göreve başladım ve 18 yıldır görevimin başındayım.

 
Gönderildi : 10/03/2015 19:37

(@AydinSAGLAMBAS)
Gönderiler: 75
Estimable Member
Konu başlatıcı
 

Teşekkür ederim fakat kurallar ile de istemiyorum , makro ile yaparsam istediğim herşeyi ekleyebilirim buda kısıtlı.

 
Gönderildi : 10/03/2015 20:41

(@sonerkoca)
Gönderiler: 194
Reputable Member
 
Aşağıdaki kod ile gelen maile ait bilgiyi ekrana pencere ile gösterebilirsin.
 
Public WithEvents mailOgesi As Outlook.Items
Public Sub Application_Startup()
   
    Set mailOgesi = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
 
Private Sub mailOgesi_ItemAdd(ByVal Item As Object)
   
    
    If TypeName(Item) = "MailItem" Then
        MsgBox "Konu : " & Item.Subject & " " & "Gönderen : " & Item.SenderName
        
    End If
End Sub
 
Gönderildi : 18/03/2015 15:12

(@AydinSAGLAMBAS)
Gönderiler: 75
Estimable Member
Konu başlatıcı
 

Teşekkür ederim bilgi için.

 
Gönderildi : 10/04/2015 19:11

Paylaş: