outlook express mail gönderme kodları yardım

[selcukkahya]

outlook express ile mail gönderemiyorum.

Merhaba Arkadaşlar

Ekteki çalışmamda e-mail gönder tuşuna bastıktan sonra oluşan dosyayı kendi bilgisayarımda (outlook kullanıyorum) mail olarak gönderebiliyorum. Fakat sadece outlook express olan bilgisayarda dosyayı oluşturabiliyorum fakat mail göndermeye çalışırken hata oluşuyor.Hata ekranını ve programı ekte bulabilirsiniz. Acilen yardımlarınızı bekliyorum arkadaşlar

hepinize kolay gelsin

iyi çalışmalar

 

[selcukkahya]

ekler

dosyaları ekte bulabilirsiniz.

 

[selcukkahya]

Arkadaşlar hepinize kolay gelsin.

Aşağıda yazılan kodla otomatik olarak outlook ta mail gönderebiliyorum.

Fakat projemi outlook olmayan bilgisayarlarda çalıştırmam lazım ve outlook express e göre düzenlemem (default olarak outlook express yani) lazım.

Yardımlarınız bekliyorum.

Teşekkürler.

Hepinize kolay gelsin





On Error GoTo Err_excel_Click
Dim stDocName As String
Dim strPath As String
Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim strTarih As String



strTarih = Replace(CStr(TARIH), "/", ".")

stDocName = "GUNLUK_KASA_GENEL"
strPath = "C:\KASA_FOYU\" & strTarih & "_" & Me.MAGAZA & ".snp"

'DoCmd.RunMacro stDocName
DoCmd.OpenReport stDocName, acViewPreview, "", "[GUNLUK_KASA_GENEL]![ID]=[Forms]![FRM_GUNLUK_KASA_GENEL]![ID] "
DoCmd.OutputTo acOutputReport, stDocName, acFormatSNP, strPath
DoCmd.Close acReport, stDocName


Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

With MailOutLook
.BodyFormat = olFormatRichText
.To = "aaa@deneme.com" 'Veya e-mail adresi
.CC = "bbb@deneme.com" 'Veya e-mail adresi
.Subject = "KASA RAPORU" 'veya konu
.HTMLBody = "GÜNLÜK KASA RAPORU" 'veya mail gövdesine yazılacaklar
'If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
.Attachments.Add strPath
'End If
'.DeleteAfterSubmit = True 'This would let Outlook send th note without storing it in your sent bin
.Send
End With
MsgBox "Mail Gönderme İşlemi Başarıyla Tamamlandı", 48, "E-mail Gönder"
Exit Sub

Exit_excel_Click:
Exit Sub

Err_excel_Click:
MsgBox Err.Description
Resume Exit_excel_Click

 

[modalı]

Sayın selcukkahya,

Outlook Express ten e-mail gönderebilmek için bilgisayarınızda geçerli posta sunucusu olarak belirtmeniz gerekiyor. Bunun için:

Windows Internet Explorer ın Araçlar menüsünden İnternet Seçenekleri ni seçin Programlar sekmesini tıklayıp Internet Programları içinden e posta için Outlook Expres i seçin.

İyi çalışmalar

 

[selcukkahya]

Sayın Modalı her yöntemi denedim ama maalesef:frown: outlook express ile mail göndermeyi başaramadım.

Birde aşağıda yazdığım kodlarla outlook express ile göndermeyi denedim.Bu şekilde gönderme yapabildim.

Private Sub Komut179_Click()
On Error GoTo Err_Komut179_Click

Dim stDocName As String

stDocName = "GUNLUK_KASA_GENEL"
DoCmd.SendObject acReport, stDocName

Exit_Komut179_Click:
Exit Sub

Err_Komut179_Click:
MsgBox Err.Description
Resume Exit_Komut179_Click

End Sub

Bu iki durumu birbirine nasıl uyarlicam konusunda yardımcı olabilirseniz çok sevinirim.

Çok teşekkürler.

Kolay gelsin.