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

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.

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? 

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 🙂

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.

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. 

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.

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.

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. 

ş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. 

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

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.

Yanlız kod içerisinde bulunan 

   MsgBox "soner"

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

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.

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.

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