Alıntı:outlook mail iletisini açıyor. göndermiyor. outlook iletisinde göndere tıklayınca gönderiyor. benim istediğim, anlatmaya çalıştığım direkt gönderebilirmi. ikinci kez outlook iletisinde göndere tıklamayayım.
ifadenize yönelik olarak;
konunuzun 10.mesajında yanıtı verilmişti.
yapmanız gereken,GÖNDER butonunun içeriğini,
DoCmd.SetWarnings (False)
Dim RpAdi As String
RpAdi = "İrsaliye"
DoCmd.OpenReport RpAdi, acViewPreview, , , acHidden
DoCmd.SendObject acSendReport, RpAdi, acFormatPDF, Me.MAIL, , , "Konuyu Yaz", "iletilecek mesaji yaz", False
DoCmd.Close acReport, RpAdi
DoCmd.SetWarnings (True)
kod satırı ile değiştirerek kullanmanız yeterlidir.
FALSE ifadesi,Outlook Belgesini açmaksızın direkt olarak gönderme işlemini sağlar.
TRUE ise,öncesinde bir kontrol etmek sureti ile Outlook Belgesi açılır son tetkiklerden sonra gönderme işlemi sağlanır.
bilginize...iyi çalışmalar,saygılar.