[MAKRO] Mail Göndermede küçük bir sorunum var

turan6100 · 08-05-2012, 16:52

ekte çalışmamda müşterinin ekstresini outlook a göndererek maili gönderiyorum. ancak muavin formunda sizinde incelediğinizde anlayacaksınız maili göndermekten vazgeçtiğimde outlook un sayfasını kapattığımda formum donuyor hiçbişey yaptırmıyor kapatmak istediğimde de (Ado ve DDe çalışan bir modülünüz var felan...)
gibi bir hata veriyor kapanmıyor CTRL+Alt+Del ile kapatıyorum formu bu konuda yardımınızı bekliyorum....

MirzaKatar · 08-05-2012, 17:06

Muavin adlı formunuzdaki excel olarak mail gönder butonuna şu kodu ekleyin;

Visual Basic
On Error GoTo hata
DoCmd.SendObject acSendQuery, "Ekstre", "xls", , , , "Hesap Ekstreniz...", "İstemiş olduğunuz ekstre ektedir...", True
Exit Sub
hata:
    MsgBox "Hata : " & Err.Description & Chr(13) & "Hata Kodu : " & Err.Number

Not: Eklentiniz gerçek bilgiler içerdiğinden kaldırılmıştır... Lütfen kendi güvenliğiniz için gerçek bilgi kullanmayınız...

turan6100 · 08-05-2012, 17:24

ilginiz için çok teşekkür ederim ancak aynı sorun devam ediyor....

MirzaKatar · 08-05-2012, 17:50

Merhaba,
Ben outlook kullanmıyorum. O sebepten sorunun çözümü hakkında fikrim yok. Yalnız bir sorum olacak:

Mail gönderme işlemini outlook üzerinden iptal ettiğiniz zaman mı bu sorunu yaşıyorsunuz?

turan6100 · 08-05-2012, 17:52

açılan outlook sayfasını kapattığım zaman bu sorunu yaşıyorum...

MirzaKatar · **Kayıt Tarihi:** 18.10.2010

Merhaba,

Hiç bir eklenti koymadan aynı işlemi gerçekleştirdiğinizde donma olmuyorsa bir çözüm önerim olabilir.

Aşağıdaki kodu dener misiniz?

On Error GoTo hata
DoCmd.SendObject acSendNoObject, ,, , , , "Hesap Ekstreniz...", "İstemiş olduğunuz ekstre ektedir...", True
Exit Sub
hata:
MsgBox "Hata : " & Err.Description & Chr(13) & "Hata Kodu : " & Err.Number

Merhaba,

Hiç bir eklenti koymadan aynı işlemi gerçekleştirdiğinizde donma olmuyorsa bir çözüm önerim olabilir.

Aşağıdaki kodu dener misiniz?

Visual Basic
On Error GoTo hata
DoCmd.SendObject acSendNoObject, ,, , , , "Hesap Ekstreniz...", "İstemiş olduğunuz ekstre ektedir...", True
Exit Sub
hata:
    MsgBox "Hata : " & Err.Description & Chr(13) & "Hata Kodu : " & Err.Number

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[VBA] Mail Ile Tablo Ya Da Sorgu Gönderme	benuva	5	254	17-06-2023, 12:18 Son Mesaj: benuva
	[FORM] Liste Kutusundaki Veriyi Mail Ile Göndermek	husem	8	935	27-01-2023, 00:52 Son Mesaj: BeyTor
	[FORM] Access Aktif Olan Formu, Mail Olarak Göndermek.	Fenerli88	5	392	25-01-2023, 02:14 Son Mesaj: BeyTor
	[FORM] Mail gönderimi.	orderyazbim	14	6.311	19-11-2022, 20:10 Son Mesaj: firatmalkoc
	[FORM] Liste Kutusu Büyük Harf Küçük Harf	ahmetsan	5	181	08-08-2022, 20:51 Son Mesaj: alperalper
	[VBA] Gmail Le Mail Gönderme Yeni Ayarları (çözüldü)	hedefkaya	7	554	20-07-2022, 12:13 Son Mesaj: benuva
	[VBA] Hotmail Veya Yandex Ile Mail Gönderme (gmail Dışında Başka Hesapla)	hedefkaya	0	233	28-06-2022, 14:49 Son Mesaj: hedefkaya
	[VBA] Ayrı Ayrı Outlook'la Mail Gönderebilmek	benuva	9	575	21-06-2022, 01:18 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL