Mail Gönderememe Problemi

[mc_exrem]

Merhabalar

Bilgisayarıma format attırma işleminden önce ekteki dosyamın KASA DEFTERİ sayfasında YAZDIR butonu vasıtasıyla hem çıktı alıyor hem de mail atıyordu. Şu an çıktı alıyorum ama mail atmıyor. Kod modul1 içerisindedir.

Sub MailGonder()
Dim OutApp As Object, Outmail As Object
Set OutApp = CreateObject("Outlook.Application")
Set Outmail = OutApp.CreateItem(0)
Outmail.BodyFormat = 2
With Outmail
    .To = "genceller@hotmail.com.tr"
    .CC = ""
    .Subject = "KONTROL M€RK3Z1"
    .Attachments.Add "F:\Şirket Evrakları\Kontrol Merkezi\Kontrol Merkezi.xlsm"
    .Display
    .Send 'Göndermek için .send den önceki ' tek tırnak işaretini kaldırın
End With
Set Outmail = Nothing: Set OutApp = Nothing
End Sub

Yardımcı olabilir misiniz.

 

[mc_exrem]

Tek değişen pc nin bilgisayarım dosyasındaki D nin F ismiyle ayrılmasıdır.

 

[mc_exrem]

@Ömer yardımcı olabilir misiniz

 

[Jon Snow]

.Attachments.Add "F:\Şirket Evrakları\Kontrol Merkezi\Kontrol Merkezi.xlsm"

.Attachments.Add Environ("HOMEDRIVE") & "\Şirket Evrakları\Kontrol Merkezi\Kontrol Merkezi.xlsm"

olarak dene.

 

[mc_exrem]

.Attachments.Add "F:\Şirket Evrakları\Kontrol Merkezi\Kontrol Merkezi.xlsm"

.Attachments.Add Environ("HOMEDRIVE") & "\Şirket Evrakları\Kontrol Merkezi\Kontrol Merkezi.xlsm"

olarak dene.

günaydın

yine hata verdi.

dosyanın sonundaki xlsm uzantısını siliyorum yine aynı hatayı veriyor.

Yardımcı olur musunuz

 

[Jon Snow]

Ekli dosyayı görüntüle 226093

günaydın

yine hata verdi.

dosyanın sonundaki xlsm uzantısını siliyorum yine aynı hatayı veriyor.

Yardımcı olur musunuz

Ek resimleri göremiyorum altın üye değilim

 

[mc_exrem]

sarı dolgulu olarak yine hata verdi

 

[mc_exrem]

Ek resimleri göremiyorum altın üye değilim

 

[Jon Snow]

.Attachments.Add başında nokta(.) yok. With ile kısaltıldığı için nokta konulmalı

 

[mc_exrem]

.Attachments.Add başında nokta(.) yok. With ile kısaltıldığı için nokta konulmalı

.Attachments.Add Environ("HOMEDRIVE") & "\Şirket Evrakları\Kontrol Merkezi\Kontrol Merkezi2.xlsm"

başında nokta var yine hata verdi?

 

[Jon Snow]

Attachments.Add Environ("HOMEDRIVE") & "\Şirket Evrakları\Kontrol Merkezi\Kontrol Merkezi2.xlsm"

başında nokta olmadan dahata verdi?

Başında nokta olması gerekiyor
.Attachments.Add Environ("HOMEDRIVE") & "\Şirket Evrakları\Kontrol Merkezi\Kontrol Merkezi2.xlsm"

 

[mc_exrem]

dosya uzantısı gözükmediği için sildim yine olmadı
.Attachments.Add Environ("HOMEDRIVE") & "\Şirket Evrakları\Kontrol Merkezi\Kontrol Merkezi2"

 

[mc_exrem]

İndir Kontrol Merkezi2

Dosyayı indir Kontrol Merkezi2

dosya.co

dosyayı ekledim

 

[akd]

Benim başımada geliyor,
gmail in güvenlik sevyesinden kaynaklanıyor, gmailin içine girin güvenlik seviyesini düşük konumuna getirin.

 

[mc_exrem]

Benim başımada geliyor,
gmail in güvenlik sevyesinden kaynaklanıyor, gmailin içine girin güvenlik seviyesini düşük konumuna getirin.

gönderdiğim mail adresi hotmaile aittir. Yine de düzeyi düşürdüm ama yine mail gelmedi

 

[mc_exrem]

Private Sub FirmaMeal_Click()
If Not IsNull(Me.belgee) Then
Yoll = CurrentProject.Path & "\MEALLER\" & Me.FirmaAdi & Format$(Date, "_dd.mm.yyyy") & ".pdf"
DoCmd.OutputTo acOutputReport, Me.belgee, acFormatPDF, Yoll _
, False, , , acExportQualityScreen
Call FirmaMailGonder ' Maili gönderiyoruz.
Else
MsgBox " Meal göndereceğiniz belgeyi seçiniz...", vbExclamation, "AKD.YAZILIM... "
Exit Sub
End If
End Sub
Private Sub FirmaMailGonder()
Dim objCDOMail As Object
Set objCDOMail = CreateObject("CDO.Message")
objCDOMail.To = "ozates.ins@hotmail.com" 'Me.Email ' Gönderilecek e-mail adresi- ozates.ins burhan6574
objCDOMail.FROM = "avburhan@windowslive.com" ' Gönderilen e-mail adresi" avburhan@windowslive.com -burhan
'objCDOMail.CC = "xxxx@hotmail.com" ' Eğer isterseniz CC olarak yani bilgi gönderilecek e-mail adresi
objCDOMail.Subject = Format$(Date, "dd.mm.yyyy") & " Tarihli Hesap Extresi Ektedir." ' e-mail konusu
Yoll = CurrentProject.Path & "\MEALLER\" & Me.FirmaAdi & Format$(Date, "_dd.mm.yyyy") & ".pdf"
objCDOMail.AddAttachment Yoll ' eğer isterseniz eklenecek dosya
objCDOMail.TextBody = Me.TxtmesajMail ' Mesajınız....
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gmail adresiniz" ' Kullanıcı adı
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "gmail şifreniz" ' Kullanıcı şifre
objCDOMail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2
objCDOMail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
objCDOMail.Configuration.Fields.Update
objCDOMail.Send
Set objCDOMail = Nothing
MsgBox "Mailiniz Gönderildi"
End Sub
Format öncesi hiçbir sorun yoktu hotmaile gönderiyordum

 

[Korhan Ayhan]

Değerli Üyeler,

Foruma kod eklerken lütfen code tagını kullanınız.

Mesaj yazdığınız pencerede 3 nokta şeklinde olan menüden erişebilirsiniz

 

[mc_exrem]

Sorun çözülmüştür.