Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 23-11-2017, 18:23   #1
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 287
Excel Vers. ve Dili:
office 2010 64 bit
Varsayılan Outlook için gelen emaili şartlı otomatik kural

Merhaba arkadaşlar ,

İş yerine yaşadığım bir sıkıntıdan kaynaklı outlook kuralına ihtayacım mevcut yardımcı olabilir misiniz .teşekkürler.

Şöyle bir email geldiğin de müşterilerimden otomatik bir ileti göndermek istiyorum (konuya ilişkin en kısa sürede dönüş yapılacak şeklinde bir yazı metni ile) ,sebebi müşteri email ilettim ulaştı mı şeklinde günde yaklaşık 10 telefon araması geliyor ve vakit kaybediyorum .

Lakin şöyle bir durum mevcut ....@firmaismi.com.tr kullanıcılarına bu e mail gitmeyecek şekilde bir kural oluşturabilmek mümkün müdür ,yardımcı olabilir misiniz rica etsem .
mustilem23 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 23-11-2017, 18:46   #2
faye_efsane
Altın Üye
 
Giriş: 01/09/2008
Mesaj: 115
Excel Vers. ve Dili:
2010 Türkçe 2016 Türkçe
Varsayılan

Merhabalar;
Microsoft'un sitesinde Outlook \ Yönetme ve düzenleme bölümünde ilgili açıklamalar var, belki işinize yarayabilir.
İlgili başlıklar;
- E-postaları otomatik olarak iletme ve yönlendirme
- Otomatik “iş yeri dışında” yanıtları gönderme
- Kuralları kullanarak e-posta iletilerini yönetme
faye_efsane Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-11-2017, 16:25   #3
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 287
Excel Vers. ve Dili:
office 2010 64 bit
Varsayılan

ilginiz için teşekkürler . ya ben yapamıyorum yada kuralda bir hata var ekte en son denemem mevcut yardımıcı olabilir misiniz arkadaşlar.teşekkürler.
Eklenmiş Resimler
Dosya Türü: jpg TEST.jpg (19.6 KB, 7 Görüntülenme)
mustilem23 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 26-11-2017, 23:06   #4
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,544
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Daha önce yazdığım bir koddan düzenleme yaptım.
Test edildi.
dahildegil değişkenine uygun formatta diğer alan adlarını ekleyiniz.

Outlook VBA da Thsoutlooksession bölümüne eklenmesi kaydedilmesi ve outlook un kapanıp açılması gerekmektedir.
Her kodda yapacağınız değişiklik sonrası kaydedip outlook u kapatıp açınız.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
'Option Explicit
Public olApp As Outlook.Application
Public objNS As Outlook.NameSpace
Public tasinacak As Boolean
Public spam As Boolean
Public alicimail As String
Public mnesne As MailItem
Public WithEvents myOlItems As Outlook.Items
Public ekadi, ekyolu, ektarihi, ekgonderen, ekkonusu As String
Private Const kaydetklasor As String = "c:\OutlookOzel"

Dim WithEvents m_objContact As Outlook.ContactItem
Dim WithEvents m_objExpl As Outlook.Explorer
 
Private m_blnIsContactFolder As Boolean

#If VBA7 Then
     Private Declare PtrSafe Function LockWorkStation Lib "user32.dll" () As LongPtr
     Private Declare PtrSafe Function ExitWindowsEx Lib "USER32" (ByVal dwOptions As LongPtr, ByVal dwReserved As LongPtr) As LongPtr
#Else
     Private Declare Function LockWorkStation Lib "user32.dll" () As Long
     Private Declare Function ExitWindowsEx Lib "USER32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
#End If

Public Sub Application_Startup()
  Set olApp = Outlook.Application
  Set objNS = olApp.GetNamespace("MAPI")
  Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
  Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items

End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)

  If TypeName(Item) = "MailItem" Then
     Set mnesne = Item
     call otomatik_cevap  
  End if

 End sub


Sub otomatik_cevap()
  Dim Recipients As Outlook.Recipients
  Dim Recip As Outlook.Recipient
  Set Recipients = mnesne.Recipients
  buldu = False
  For Each Recip In Recipients
    If Recip.Type = olCC Then
      If InStr(1, fnGetSMTPAddress(Recip.Address), "sizinmailadiniz@sizinalanadi.com", vbTextCompare) Then
        buldu = True
        Exit For
      End If
    End If
  Next
  
  If buldu = False Then
     gonderenmail = fnGetSMTPAddress(mnesne.SenderEmailAddress)
     gonderenalanadi = "/" & Mid(gonderenmail, InStr(gonderenmail, "@") + 1, Len(gonderenmail)) & "/"
     dahildegil = "/alanadi1.com.tr/,/alanaadi2.com/"
     If InStr(dahildegil, gonderenalanadi) <= 0 Then
       Set myForward = mnesne.Forward
       myForward.Recipients.Add gonderenmail
       myForward.Subject = mnesne.Subject
       myForward.Body = "Merhaba, konuya ilişkin en kısa sürede dönüş yapılacaktır." & myForward.Body
       myForward.Send
       Exit Sub
      End If
   End If
End Sub


 
Public Function fnGetSMTPAddress(ExchangeMailAddress As String) As String
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem

Set objOutlook = New Outlook.Application
Set objMailItem = objOutlook.CreateItem(0)
objMailItem.To = ExchangeMailAddress
objMailItem.Recipients.ResolveAll
On Error Resume Next
If objMailItem.Recipients.Item(1).Resolved Then
fnGetSMTPAddress = objMailItem.Recipients.Item(1).AddressEntry.GetExchangeUser.PrimarySmtpAddress
If Err.Number <> 0 Then fnGetSMTPAddress = ExchangeMailAddress
Else
fnGetSMTPAddress = ExchangeMailAddress
End If
Set objMailItem = Nothing
Set objOutlook = Nothing

End Function
__________________
www.asriakdeniz.com

Bu mesaj en son " 02-12-2017 " tarihinde saat 12:29 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-11-2017, 18:49   #5
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 287
Excel Vers. ve Dili:
office 2010 64 bit
Varsayılan

Üstadım ilgin için çok teşekkur ederim.
ekteki gibi bir hata alıyorum benim sistemim 64 bit ondanmı kaynaklı mıdır bu hata acaba çözüm için yardımcı olabilir misiniz rica etsem.
Eklenmiş Resimler
Dosya Türü: jpg test email ilk hata 1.jpg (328.7 KB, 6 Görüntülenme)
Dosya Türü: jpg tets 2 hata 2.jpg (19.9 KB, 1 Görüntülenme)
mustilem23 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 27-11-2017, 18:51   #6
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,544
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
mustilem23 tarafından gönderildi Mesajı Görüntüle
Üstadım ilgin için çok teşekkur ederim.
ekteki gibi bir hata alıyorum benim sistemim 64 bit ondanmı kaynaklı mıdır bu hata acaba çözüm için yardımcı olabilir misiniz rica etsem.

End Sub dan önce bir tane End if ekleyip dener misiniz


Kod outlook umda aktif kalmış. Öğlene kadar tüm maillere dönüş yapmış : ))
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-11-2017, 19:45   #7
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 287
Excel Vers. ve Dili:
office 2010 64 bit
Varsayılan

Sabah ilk iş deneyecegim üstadım .
600 kişiyi dahil değil listesine ekleyecegim inşallah kasma yapmaz outlookta , iyi düşüneyim iyi olsun.
Sormayın aynı dert benimde oldu deneme yapar iken G.M dahi gittti 🤗 bu gün imzaya çıktıgımda sordu test dedim olmadı 15 dakkada dönüş yapman lazım dedi olumlu olarak her konu için .anladım ki dikkate almış ...😂
mustilem23 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 27-11-2017, 21:24   #8
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,544
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
mustilem23 tarafından gönderildi Mesajı Görüntüle
Sabah ilk iş deneyecegim üstadım .
600 kişiyi dahil değil listesine ekleyecegim inşallah kasma yapmaz outlookta , iyi düşüneyim iyi olsun.
Sormayın aynı dert benimde oldu deneme yapar iken G.M dahi gittti 🤗 bu gün imzaya çıktıgımda sordu test dedim olmadı 15 dakkada dönüş yapman lazım dedi olumlu olarak her konu için .anladım ki dikkate almış ...😂

Kişi ekleyemezsiniz kod buna uygun değil, alan adı ekleyebilirsiniz ancak 600 alan adı string limitlerini zorlayabilir. Test etmedim.


Bu durumda kodun dizi değişken bazlı dahil değil listesine göre değiştirilmesi gerekiyor.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2017, 11:28   #9
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 287
Excel Vers. ve Dili:
office 2010 64 bit
Varsayılan

Üstadım tam istediğim mantık ile çalışıyor .4 gündür testte fakat durdum çünki .

adımın cc de olduğunda dahi cevap veriyor . sadece adımın kime kutusunda olduğunda cevap verebilmesi mümkünmüdür.
bir ricam daha olacak çok önemli degil ama mümkünse cevaplanan ileti düzmetin olarak iletiliyor html olarak gönderebilmesi mümkün müdür.teşekkürler.
mustilem23 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 02-12-2017, 12:30   #10
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,544
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
mustilem23 tarafından gönderildi Mesajı Görüntüle
Üstadım tam istediğim mantık ile çalışıyor .4 gündür testte fakat durdum çünki .

adımın cc de olduğunda dahi cevap veriyor . sadece adımın kime kutusunda olduğunda cevap verebilmesi mümkünmüdür.
bir ricam daha olacak çok önemli degil ama mümkünse cevaplanan ileti düzmetin olarak iletiliyor html olarak gönderebilmesi mümkün müdür.teşekkürler.

Kod güncellendi.


kodda cc de bulunmaması gereken mail adresinizi düzeltiniz.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 20:21


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden