Anasayfa » Forum

Office365 online Ex...
 

Office365 online Exchange üzerinde vba kodu çalıştırma?  

  RSS
Muhammed YUCAL
(@muhammedyucal)
Üye

Daha önce 
https://www.cozumpark.com/community/microsoft_office-4/office365-firma-harici-mail-gonderirken-uyari-soru/
postunda, şirket domaini dışında herhangi bir adrese mail gönderirken uyarı nasıl verilir diye sormuştum. Sizden gelen geri bildirimler ve araştırmalarımda outlook masaüstü uygulamasında vba kodu ile bu işlemin yapılabildiğini gördüm. Test ettim ve sorunsuz bir şekilde çalıştı.
Az önce vba kodunu online exchange üzerine ekleniyormu diye araştırdım. Bir kaç sitede bunun yapılabildiği yazılmış ancak nasıl ve nereye eklendiği belirtilmemiş. 
Sizlere sormak istedim. VBA kodunu online sisteme nasıl ekleyebiliriz? veya gerçekten ekleyebilir miyiz?

Alıntı
Gönderildi : 24/07/2019 11:30
Muhammed YUCAL
(@muhammedyucal)
Üye

Bu outlook uygulaması için paylaşılan kodların hemen hemen hepsi tek bir domain haricinde uyarı verecek şekilde yazılmış. Çalıştığım yer grup firması olduğu için ve birçok domaine sahip olduğu için vba kodunu sizlerle paylaşmak istedim. İhtiyacı olan arkadaşlar buradan alabilirler.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim recips As Outlook.Recipients
Dim recip As Outlook.Recipient
Dim pa As Outlook.PropertyAccessor
Dim prompt As String
Dim strMsg As String
Dim Address As String
Dim lLen

Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"

Set recips = Item.Recipients
For Each recip In recips
Set pa = recip.PropertyAccessor

Address = LCase(pa.GetProperty(PR_SMTP_ADDRESS))
lLen = Len(Address) - InStrRev(Address, "@")

Select Case Right(Address, lLen)
Case "domain1.com", "domain2.net", "domain3.org"

Case Else ' remove case else line to be warned when sending to the addresses
strMsg = strMsg & " " & Address & vbNewLine
End Select
Next

If strMsg <> "" Then
prompt = "This email will be sent outside of the company to:" & vbNewLine & strMsg & vbNewLine & "Please check recipient address." & vbNewLine & vbNewLine & "Do you still wish to send?"
If MsgBox(prompt, vbYesNo + vbExclamation + vbMsgBoxSetForeground, "Check Address") = vbNo Then
Cancel = True
End If
End If

End Sub

Koddaki 
Case "domain1.com", "domain2.net", "domain3.org"
satırına istediğiniz kadar domain ekleyebilirsiniz. Yazdığınız domain haricinde bir mail adresine gönderim yapıldığında uyarı verecektir.

CevapAlıntı
Gönderildi : 24/07/2019 11:35
Paylaş:

Lütfen Giriş yap yada Kayıt ol