(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
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)
