Access Uyarı Mesajını Kapatmaa

benuva · 30-10-2023, 12:12

Merhaba,

Access'le .msg formatlı (Outlook mail formatı) link ile açmak istediğimde Access uyarı mesajı veriyor. Verdiği mesaj'da da dosyanın yolu görünüyor.

Bu mesajı kapatabilmenin bir yolu var mıdır? Başka pc'de de olsa çıkmasını istemiyorum.

tşkler

dsezgin · 31-10-2023, 02:34

Formda Text1 metin kutusunda .msg içini gösterebilirsiniz.
Referans Microsoft Outlook .... Object library

Visual Basic
Private Sub Command2_Click()
Dim EPosta As Outlook.Application
Dim EPostaMsg As Outlook.MailItem
Dim Yer As String
Yer = "C:\Users\" & Environ("UserName") & "\Desktop\deneme.msg"
Set EPosta = New Outlook.Application
Set EPostaMsg = EPosta.CreateItemFromTemplate(Yer)
Me![Text1] = EPostaMsg.Body
End Sub

benuva · 31-10-2023, 13:09

@dsezgin bey, linkten açarken uyarı vermeden açmanın bir yolu yok mu? Çünkü mail dosyasını açmam gerekiyor.

Değerli desteklerinizi rica ederim.

Tşkler

dsezgin · 01-11-2023, 00:47

Visual Basic
Private Sub Command2_Click()
Dim EPosta  As Outlook.Application
Dim EPostaMsg  As Outlook.MailItem
Set EPosta = CreateObject("Outlook.Application")
Yer = "C:\Users\" & Environ("UserName") & "\Desktop"
Mesaj = Dir(Yer & "\*.msg ")
Do While Mesaj <> ""
    Set EPostaMsg = EPosta.CreateItemFromTemplate(Yer & "\" & Mesaj)
    EPostaMsg.Display
    Mesaj = Dir
Loop
Set EPosta = Nothing
Set EPostaMsg = Nothing
End Sub

Açılmasını istediğiniz .msg adi secimi ile koşul oluşturabilirsiniz.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Access Te Uyarı	aristoes	2	148	04-07-2023, 17:08 Son Mesaj: aristoes
	[FORM] Aranan Kişiyi Bulamayınca Uyarı Versin	omergenc7	2	222	14-11-2022, 14:38 Son Mesaj: omergenc7
	Günü Yaklaşan Tarihi Uyarı Ile Bildirmek	Kaptan64	6	458	24-05-2022, 20:47 Son Mesaj: Kaptan64
	[MAKRO] Stok çıkış Adedi Stok Miktarından Büyük Ise "yetersiz Stok" Diye Uyarı Vermesi	resett	1	444	18-12-2020, 19:36 Son Mesaj: adnnfrm
	[FORM] Kayıt Silmede Uyarı ve Onay	SOGUT01	3	1.031	10-04-2019, 15:35 Son Mesaj: onur_can
	[VBA] uyarı	alienerji	5	1.057	06-06-2018, 18:06 Son Mesaj: alienerji
	[FORM] İki tarih arasındaki farkta uyarı ve otomatik sayı	prestij06	13	2.752	19-11-2017, 23:38 Son Mesaj: prestij06
	[SORGU] Süreye göre mesaj ile uyarı	huzun_bulutu	17	3.830	27-05-2017, 13:41 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL