Forum

Outlook a gelen mai...
 
Bildirimler
Hepsini Temizle

Outlook a gelen mail i istediğim adrese "sadece" mail geldi diye iletmek

23 Yazılar
4 Üyeler
0 Likes
4,034 Görüntüleme
(@candogan)
Gönderiler: 20
Eminent Member
Konu başlatıcı
 

Arkadaşlar,

Outlook a (2007-2010) mail düştüğü zaman otomatik olarak belirlediğim adrese sadece mail geldi diye mail atabileceğim bir eklentiye ihtiyacım var, veya nasıl sadece mail geldi diye mail atabilirim. Ben mailin tamamını göndermesini istemiyorum.

Şöyle düşünün, Bir mail accountum var ofiste, Mail geldi ve sistem otomatikmen belirlediğim adrese(mesajın geldiği adrese değil) sadece mail received diye mesaj göndermesini nasıl sağlarım?

Bunu yapma amacım, ofisteki bilgisayar her 15dk da bir gönderip alma yapacak, fakat karşı taraf sadece sms gibi mesaj alacak(sms değil tabii ki.) Sonra karşı taraf bilgisayardan internete bağlanıp mail i alacak. Karşı taraf dial-up mantığı ile internete bağlanıyor. Çünkü internet uydu üzerinden ve mbyte i 12$ gibi fiyatı var.

Yorum ve düşünceleriniz nedir?

 

Saygılarımla.

Can DOGAN 

 
Gönderildi : 09/07/2012 18:07

Hakan Uzuner
(@hakanuzuner)
Gönderiler: 32965
Illustrious Member Yönetici
 

Merhaba

Outlook içerisinde böyle bir seçenek yok, ancak yazılım tarafınız güçlü ise alt+f11 ile makro ekranına girer burada böyle bir şey yapabilirsiniz ancak bunu yazmak ayrı bir beceri gerektiriyor tabi ki.

Ek olarak merak ettiğim bir konu, şimdi bu 12$ lık internete neye göre bağlanacak, siz bunu yapsanız dahi yani yeni mail geldiğinde bana diyelimki mail attınız ben o mail içinde zaten yine internete bağlanmam gerekmi yor mu ? E madem bağlandım gidip sizin posta kutunuzu kontrol ederim, sadece header indir diyerek böylece daha düşük boyutlu olan başlıkları alırım veya en güzeli webmail kullanın. Size gelen mailleri Hotmail.com gibi bir yere iletin bu arkadaşınız gidip oradan baksın.

Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

 
Gönderildi : 10/07/2012 12:07

(@candogan)
Gönderiler: 20
Eminent Member
Konu başlatıcı
 

Hakan bey,

Öncelikle yanıtınız için teşekkür ederim.,

Konuyu biraz daha detaylı olarak açayım,

Sistem gemilerde kullanmak üzere olacak,

Gemilerde kural gereği bazı haberleşme cihazları var (inm-c veya mini-c adıyla) bu cihazlar sadece telex ve text biçimde mesaj alıp gönderebiliyor, yani ekli dosya gönderme ve alma şansınız yok, Gemideki evrak işleri için birde kural harici haberleşme cihazları var bunlar (F77 ve fleetbroadband vb.) diye geçer. Şimdi amacıma geri dönelim,

Gemide fleetbroadband var (mb ı 12$ gibi). geminin mail adreside var. Şimdi benim yapmak istediğim şu;

Geminin mail adresini ofiste bir pc ye kurdum outlook veya benzeri mail programına, Dışardan bir mail geldi ve ofiste ki pc ye düştü, Sistem otomatikmen o mesajı gemideki kural gereği olan cihaza text olarak gönderecek. (Mail received veya sadece m diye) (kural gereği olan bu cihaza gelen ve giden mail ler içinde ücret ödüyorum fakat çok daha makul düzeyde). Gemide ki personel de görecek ki inm-c  cihazına 1 satır,1 karakter yazı gelmiş. Buna göre Fleetbroadband cihazından PPPOE bağlantı yaparak internete çıkış alacak mail server a düşen mail i görecek,cevaplayacak.

Ben devamlı/Gereksiz yere gemideki cihaz üzerinden gönder al yapılmasını istemiyorum.Neden olarak ta Fleetbroadband dan PPPOE her bağlantıda uydu iletişimi olduğu için ücret yazacak. Bu ücret en az 104000 byte.

Yani her mail i kontrol etmesi para. Günde 10 defa gönder al yapsa 1mb : 12$ x 30(gün): 360$ boşuna yazacak para. (Birde mail geldiği zaman yazsa, en az 700-800 $ olacak) . Birde armatörün 50 gemisi varsa sen hesapla meblayı  hakan bey.

Amaç bu değeri minimum a düşürmek. 

Bunun haricinde bildiğim kadarıyla outlook ta (2003-2007-2010) mail sıkıştırma gibi bir özellik yok. Gemideki personel bu konuda yetersiz, Örneğin bir excel veya Docx i sıkıştırmadan yollarsan 4Mb, sıkıştırıp yollarsan 200kb a dahi düşüyor.

Outlook üzerinden, ben sıkıştırma yapmasam dahi mesajı gönderirken sıkıştıracak ek bir yazılım veya ayar varmıdır? 

 

 
Gönderildi : 10/07/2012 16:24

(@Soner_Koca)
Gönderiler: 113
Estimable Member
 
Aşağıdaki kodu outlook macro ya yapıştırırsan mail geldiğinde   kod içerisinde belirtilen [email protected] adresi yerine mail geldi diye mail atılacak adresi gireceksiniz. 
 
 
 
Option Explicit
Public WithEvents postakutum As Outlook.Items
Public Sub Application_Startup()
    
    Set postakutum = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub postakutum_ItemAdd(ByVal Item As Object)
    Dim cevaplayici As MailItem
    
    If TypeName(Item) = "MailItem" Then
    
            Set cevaplayici = Item.Forward
            
                cevaplayici.Recipients.Add "[email protected]"
                'Item.Subject
                Item.Subject = " Mail geldi"
                Item.Save
            
            cevaplayici.Send
           
    End If
End Sub
 
Gönderildi : 11/07/2012 11:18

Hakan Uzuner
(@hakanuzuner)
Gönderiler: 32965
Illustrious Member Yönetici
 

Aşağıdaki kodu outlook macro ya yapıştırırsan mail geldiğinde   kod içerisinde belirtilen [email protected] adresi yerine mail geldi diye mail atılacak adresi gireceksiniz. 
 
 
 
Option Explicit
Public WithEvents postakutum As Outlook.Items
Public Sub Application_Startup()
    
    Set postakutum = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub postakutum_ItemAdd(ByVal Item As Object)
    Dim cevaplayici As MailItem
    
    If TypeName(Item) = "MailItem" Then
    
            Set cevaplayici = Item.Forward
            
                cevaplayici.Recipients.Add "[email protected]"
                'Item.Subject
                Item.Subject = " Mail geldi"
                Item.Save
            
            cevaplayici.Send
           
    End If
End Sub

Süpersin tam da bundan bahsediyordum 🙂

Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

 
Gönderildi : 11/07/2012 15:25

(@candogan)
Gönderiler: 20
Eminent Member
Konu başlatıcı
 

Aşağıdaki kodu outlook macro ya yapıştırırsan mail geldiğinde   kod içerisinde belirtilen [email protected] adresi yerine mail geldi diye mail atılacak adresi gireceksiniz. 
 
 
 
Option Explicit
Public WithEvents postakutum As Outlook.Items
Public Sub Application_Startup()
    
    Set postakutum = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub postakutum_ItemAdd(ByVal Item As Object)
    Dim cevaplayici As MailItem
    
    If TypeName(Item) = "MailItem" Then
    
            Set cevaplayici = Item.Forward
            
                cevaplayici.Recipients.Add "[email protected]"
                'Item.Subject
                Item.Subject = " Mail geldi"
                Item.Save
            
            cevaplayici.Send
           
    End If
End Sub

 

Deniyorum şimdi. 

Olursa benden size MERCI çikolata (1 paketim kalmıştı onuda size yollarım)

Teşekkür ederim.

 

 
Gönderildi : 11/07/2012 17:22

(@candogan)
Gönderiler: 20
Eminent Member
Konu başlatıcı
 

Aşağıdaki kodu outlook macro ya yapıştırırsan mail geldiğinde   kod içerisinde belirtilen [email protected] adresi yerine mail geldi diye mail atılacak adresi gireceksiniz. 
 
 
 
Option Explicit
Public WithEvents postakutum As Outlook.Items
Public Sub Application_Startup()
    
    Set postakutum = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub postakutum_ItemAdd(ByVal Item As Object)
    Dim cevaplayici As MailItem
    
    If TypeName(Item) = "MailItem" Then
    
            Set cevaplayici = Item.Forward
            
                cevaplayici.Recipients.Add "[email protected]"
                'Item.Subject
                Item.Subject = " Mail geldi"
                Item.Save
            
            cevaplayici.Send
           
    End If
End Sub

 

Bende olmadı, mesaj gitmedi. 

Sorun; postakutum yazan satır olabilirmi?

Outlook umda 3 mail adresi kurulu ve mail kime yollanmış ise o klasör içine düşüyor. (kural ile) Ben [email protected] adresine gelen mail ler uydu klasörüne düşmesi sağladım. Sizin yaptığınız macroda postakutum yazan kelimeyi ben uydu diye değiştirsem olur mu?

Yanlışım varsa söyleyin.

Saygı ve selametle. 

 
Gönderildi : 11/07/2012 18:14

(@Soner_Koca)
Gönderiler: 113
Estimable Member
 

hayır değiştirmeyiniz. postakutum orda değişken olarak kullanılmıştır. sadece [email protected] adresi yerine mail kime gitcekse o adresi yazacaksınız. Ben denedim çalışıyor. Benim adrese geldiği zaman [email protected] adresine "Mail geldi" diye mail atıyor. Siz kural oluşturduğunuz için çalışmıyor olabilir. Bu kod inbox (Gelen Kutusu) na düşen mailleri kontrol ediyor.

 
Gönderildi : 12/07/2012 11:13

(@candogan)
Gönderiler: 20
Eminent Member
Konu başlatıcı
 

hayır değiştirmeyiniz. postakutum orda değişken olarak kullanılmıştır. sadece [email protected] adresi yerine mail kime gitcekse o adresi yazacaksınız. Ben denedim çalışıyor. Benim adrese geldiği zaman [email protected] adresine "Mail geldi" diye mail atıyor. Siz kural oluşturduğunuz için çalışmıyor olabilir. Bu kod inbox (Gelen Kutusu) na düşen mailleri kontrol ediyor.

Yardımınız için teşekkür ederim fakat;

Outlooktaki kuralı kaldırdım ve mail gitti,

Fakat benim istediğim mesajın tamamının iletilmesi değildi, sadece mail geldi diye bir satır karşı tarafa gitmesi yeterli idi. Bu kodda mesajın tamamını iletiyor.

 

 
Gönderildi : 12/07/2012 13:43

(@Soner_Koca)
Gönderiler: 113
Estimable Member
 
kodu istğiniz doğrultusunda değiştirdim. sadece mail geldi mesajı atıyor.  
 
Option Explicit
Public WithEvents postakutum As Outlook.Items
Public Sub Application_Startup()
    
    Set postakutum = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub postakutum_ItemAdd(ByVal Item As Object)
    Dim cevaplayici As MailItem
    
    If TypeName(Item) = "MailItem" Then
            Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
   .To = "[email protected]"
   
   .Subject = "mail geldi)..."
   
   .Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
            
           
    End If
End Sub
 
Gönderildi : 12/07/2012 14:19

(@candogan)
Gönderiler: 20
Eminent Member
Konu başlatıcı
 

kodu istğiniz doğrultusunda değiştirdim. sadece mail geldi mesajı atıyor.  
 
Option Explicit
Public WithEvents postakutum As Outlook.Items
Public Sub Application_Startup()
    
    Set postakutum = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub postakutum_ItemAdd(ByVal Item As Object)
    Dim cevaplayici As MailItem
    
    If TypeName(Item) = "MailItem" Then
            Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
   .To = "[email protected]"
   
   .Subject = "mail geldi)..."
   
   .Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
            
           
    End If
End Sub

 

Teşekkür ederim fullblack (almanya hamburg a kursa gittimde  ALDImarkt tan aldığım MERCI çikolata) n çözümpark için veya senin için hazır, Nereye yollama mı istersin?. (Bizde söz ağızdan bir kere çıkar 🙂 ) 

Şimdi kod çalıştı, iki sorum daha var?

1- Ben gelen kutusuna düşmesini istemiyorum. Uydu adında klasörüm var. Kural ile gelen mesaj oraya düşüyor. Kodu bu klasöre göre nasıl düzenlersin?

2. Birden çok mail geldiğinde aynı şekilde her gelen mesaj için istediğim adrese ayrı ayrı mail (aynı mail i: mesaj geldi diye)  atmasını nasıl sağlarım veya mesaj geldi1,mesaj geldi2, mesaj geldi3 gibi gönderimi nasıl sağlarsın? (ör: Birden çok mesaj gelmiş ise, mesaj geldi3 gibi)  (çokta önemli değil. sadece bilgi için)

Saygılarımla.

Best wishes. 

 
Gönderildi : 12/07/2012 15:05

(@Soner_Koca)
Gönderiler: 113
Estimable Member
 
şimdibu kod Uydu klasörüne mail düşünce [email protected] adresi yerine yazacağın adrese Mail geldi 1 Mail geldi 2 diye mesaj atcak
 
Çikolatayıda aşağıdaki adrese gönderebilirsiniz 🙂
 
Beşiktaş Gemi inşa A.Ş
Tersaneler bölgesi A-10 Parsel  Altınova / Yalova 
                                   
 
 
 
 
Option Explicit
Public WithEvents postakutum As Outlook.Items
  Dim sayici As Integer
Public Sub Application_Startup()
    sayici = 0
    
    Set postakutum = Outlook.Session.GetDefaultFolder(olFolderInbox).Folders("Uydu").Items
End Sub
Private Sub postakutum_ItemAdd(ByVal Item As Object)
    Dim cevaplayici As MailItem
    If TypeName(Item) = "MailItem" Then
    sayici = sayici + 1
            Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
   .To = "[email protected]"
   MsgBox "soner"
   
   .Subject = "mail geldi " & sayici
   
   .Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
            
           
    End If
End Sub
 
Gönderildi : 12/07/2012 17:37

(@candogan)
Gönderiler: 20
Eminent Member
Konu başlatıcı
 

şimdibu kod Uydu klasörüne mail düşünce [email protected] adresi yerine yazacağın adrese Mail geldi 1 Mail geldi 2 diye mesaj atcak
 
Çikolatayıda aşağıdaki adrese gönderebilirsiniz 🙂
 
Beşiktaş Gemi inşa A.Ş
Tersaneler bölgesi A-10 Parsel  Altınova / Yalova 
                                   
 
 
 
 
Option Explicit
Public WithEvents postakutum As Outlook.Items
  Dim sayici As Integer
Public Sub Application_Startup()
    sayici = 0
    
    Set postakutum = Outlook.Session.GetDefaultFolder(olFolderInbox).Folders("Uydu").Items
End Sub
Private Sub postakutum_ItemAdd(ByVal Item As Object)
    Dim cevaplayici As MailItem
    If TypeName(Item) = "MailItem" Then
    sayici = sayici + 1
            Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
   .To = "[email protected]"
   MsgBox "soner"
   
   .Subject = "mail geldi " & sayici
   
   .Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
            
           
    End If
End Sub

 

Beşiktaş shipyard yalova ? ( Federal Mackinac gemisinde idim iki gün önce;;) VDR surveyor olarak)

 Ok. Olmadı ben elden teslim etmek isterim 16sında bir gemiye daha geleceğim. İsim ve bölüm nedir? (istersen tuzlada da teslim edebilirim size kalmış)

Can. 

 
Gönderildi : 12/07/2012 17:47

(@Soner_Koca)
Gönderiler: 113
Estimable Member
 

Evet Federal gemisi burda 🙂 Bilgi işlem departmanı . ismim Soner 

 
Gönderildi : 12/07/2012 17:56

(@candogan)
Gönderiler: 20
Eminent Member
Konu başlatıcı
 

SON Nokta;

Outlook üzerinden yolladığım excel,word vb dosyaları(tüm dosya uzantılarını) otomatik olarak sıkıştırıp yollayacak kod varmıdır?

Dosya sıkıştırma rar,zip,7-zip olması hiç farketmez. Sadece sıkıştırsın,boyutunu mininum yapsın yeter.

 

 
Gönderildi : 12/07/2012 18:01

(@Soner_Koca)
Gönderiler: 113
Estimable Member
 

Yanlız kod içerisinde bulunan 

   MsgBox "soner"

kodunu siliniz. her  mail geldiğinde mesaj olarak karşınıza gelir.

 
Gönderildi : 12/07/2012 18:40

(@Soner_Koca)
Gönderiler: 113
Estimable Member
 

evet koda sıkıştırma özelliğinide ekledim. Ekli dosya ne kadar olursa olsun , kaç adet olursa olsun  rar tipinde sıkıştırıp gönderiyor.

 
Gönderildi : 12/07/2012 22:13

Hakan Uzuner
(@hakanuzuner)
Gönderiler: 32965
Illustrious Member Yönetici
 

Bende istiyorum  🙂 şaka bir yana siz bayağı kendi aranızda işi kurdunuz tebrik ediyorum.

Soner ayrıca madem bu kadar beceriklisin neden kendi ismin ile forumda takılmıyorsun ? Malum yakın zamanda nickname li hesaplar kapatılacak zaten 🙂

Ayrıca kod için tebrik ediyorum seni bunu güzel bir şekilde derleyip toplarsan eğer ip uçlarına koyalım derim çok kişinin işini görür.

Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

 
Gönderildi : 13/07/2012 13:46

(@sonerkoca)
Gönderiler: 194
Reputable Member
 

Teşekürler Hakan,  Düzenlenmiş  halini yazıyorum :). Program Belirtilen outlook klasorune mail düştüğü zaman , belirlenen mail adresine " Mail Geldi" diye mail atıyor. Eğer mailde Ekli dosya var ise bunları winrar ile sıkıştırıp maile ekleyip belirlenen maile atmaktadır.

 

 

 

'***************************************************************************************

'C:\comp_ek klasörü mutlaka oluşturulmalıdır. Sıkıştırma işlemi bu klasörde yapılır.

'C:\mail   klasörü mutlaka oluşturulmalıdır. Mail ekleri bu klasore kayıt edilir.

'Bilgisayarda winrar kurulu olmalıdır.

'sonerkoca28@gmail adresi yerine mailin iletileceği adres yazılmalıdır.

'***************************************************************************************

'//////////////////////////////////////////Soner KOCA /////////////////////////////////////

'//////////////////////////////////////////[email protected]///////////////////////////

Option Explicit

Public WithEvents postakutum As Outlook.Items

Dim sayici As Integer

Const dosya_yolu As String = "C:\Comp_ek\"

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

        Private Sub Application_Startup()

        Dim ns As Outlook.NameSpace

        sayici = 0

        Set postakutum = Outlook.Session.GetDefaultFolder(olFolderInbox).Folders("Yazilim").Items

End Sub

 

Sub postakutum_ItemAdd(ByVal Item As Object)

            Dim ekli_dosya As Attachment

            Dim i As Integer

            Dim sikistirma_programi As String

            Dim cevaplayici As MailItem

        Dim ziple As String

        Dim kaynak As String

        Dim hedef As String

        Dim outlk1 As Object

        Dim outlk2 As Object

                

                On Error Resume Next

                Kill "c:\mail\*.*"

                Kill "c:\comp_ek\*.*"

                If TypeName(Item) = "MailItem" Then

                    sayici = sayici + 1

                Set outlk1 = CreateObject("Outlook.Application")

                Set outlk2 = outlk1.CreateItem(0)

                With outlk2

                     .To = "[email protected]"

                     .Subject = "mail geldi " & sayici

                                 If Item.Attachments.Count > 0 Then

                         For i = 1 To Item.Attachments.Count

                                Set ekli_dosya = Item.Attachments(i)

                                kaynak = ""

                                ekli_dosya.SaveAsFile "c:\mail\" & ekli_dosya.FileName

                                sikistirma_programi = "C:\Program files\winrar\"

                        kaynak = "c:\mail\" & ekli_dosya.FileName

                        hedef = "c:\comp_ek\ekler.rar"

                      Next

                          End If

                            ziple = Shell(sikistirma_programi & "rar  a " & hedef & " " & "c:\mail", vbNormalFocus)

                        Sleep 1000

                        outlk2.Attachments.Add ("c:\comp_ek\ekler.rar")

                        outlk2.Send

                     End With

         Set outlk2 = Nothing

         Set outlk1 = Nothing

                 End If

         Set ekli_dosya = Nothing

     

End Sub 

 

 
Gönderildi : 13/07/2012 17:08

Sayfa 1 / 2
Paylaş: