AccessTr.neT

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.

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.

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

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



  

Merhaba,

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