Skip to main content

AccessTr.neT


access display ayarı

access display ayarı

Çözüldü #1
Cevapla
#2
Burada en önemli soru şu : "Siz bu kodu kullanarak eposta gönderebiliyor musunuz?"

Eğer gönderebiliyorsanız öncesinde If kontrolü ile onay alacaksınız bu kadar basit.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#3
Merhaba,
.Send değerini kaldırıyorum yine olmiyor, burada amaç ilgili değerleri outlookya yazsı ve Outlook mail gönderme penceresini açsın beklesin. ben göndere basınca gitsin bunu istiyorum,
outappt.Display  ile olmadı, başka yolu var mı?
IF komutu ile nasıl onay alabilirim, ben kodlardan pek anlamıyorum, ekleyebilir misiniz gönderdiğim koda.
Son Düzenleme: 12/11/2015, 09:13, Düzenleyen: ssdestek.
Cevapla
#4
Merhabalar;

Firik olması açısından outlook üstünden kullandığım kod;
Sub BA()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
    
With NewMail
.To = ""
.Subject = "Ba / Bs Mutabakatı Hk."
.Body = "Sayın İlgili;" & Chr(10) & " " & Chr(10) & "Ekteki mutabakat evrakını kontrol etmenizi ve dahilinde kaşe imzalı teyidinizi tarafımıza iletmenizi rica ederim." & Chr(10) & Chr(10) & "Konu ile ilgili olarak gün içerisinde dönüş yapmanızı önemle rica ederim."
.Display
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

Yazdığım bilgilere göre maili yazıyor ve başka bişey yapmıyor.
Yararlı olur umarım Beerchug
Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların
Cevapla
#5
(12/11/2015, 14:03)emir ustaoğlu yazdı: Merhabalar;

Firik olması açısından outlook üstünden kullandığım kod;
Sub BA()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
    
With NewMail
.To = ""
.Subject = "Ba / Bs Mutabakatı Hk."
.Body = "Sayın İlgili;" & Chr(10) & " " & Chr(10) & "Ekteki mutabakat evrakını kontrol etmenizi ve dahilinde kaşe imzalı teyidinizi tarafımıza iletmenizi rica ederim." & Chr(10) & Chr(10) & "Konu ile ilgili olarak gün içerisinde dönüş yapmanızı önemle rica ederim."
.Display
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

Yazdığım bilgilere göre maili yazıyor ve başka bişey yapmıyor.
Yararlı olur umarım  Beerchug

Merhaba,
Yapmak istediğim aslında tam bu değil, bunu yapabiliyorum. Özellikle WindowsXP makinalarda Access Formum (FormAA) açıkken bir butona basıyorum ve sizin verdiğiniz kod çalışıyor. Burada Açık olan tüm pencereleri simge durumuna küçültsün yada direk masa üstünü göstersin ve ardında da sizin verdiğiniz kodu çalıştırsın ve Outlook arayüzü ekrana gelsin. Bunu şöyle yaptığımda oluyor ama XP makinalarda olmiyor.

Sizin verdiğiniz kodun içine ;

CreateObject("Shell.Application").MinimizeAll

bu kodu yazıyorum, Windows7 lerde tamam ama XP lerde işe yaramiyor, XP lerde şöyle işe yarıyor: eğer formun arkasında Outlook simge durumunda değil de açık durumda ise olabiliyor.
Yapmak istediğim Öncelikle masa üstünü göstersin ardında da sadece Outlook .Display görünsün...
Şu kodları da denedim ama olmadı:

CreateObject("Shell.Application").MinimizeAll

---------------------------------------------
Dim Application As Object
Set Application = CreateObject("Shell.Application")
Application.MinimizeAll
-------------------------------------------------
Bu kod da kırmızı satır hata verdi:

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
-----------------------------------------------------
Bu kod da hata verdi:

C:\Documents and Settings\default user\Application Data\Microsoft\Internet Explorer\Quick Launch\Show Desktop.scf)



  
Cevapla
#6
Merhaba,

bu konudaki problem çözülmüştür. Teşekkür ederim.
Saygılar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task