Skip to main content

AccessTr.neT


Toplu mail gönderme

Toplu mail gönderme

#19
Sayın atoz112;

Teşekkür ederim.
Dedikleriniz yaptım, ekli olarak mail gönderme işi çözüldü.
Eksiz göndermeyi deneyince 

"Error No: -2147024893; Description: Yol yok. Yolun doğruluğunu denetleyin"

uyarı penceresi çıktı karşıma
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
#20
sayın kadirdursun,

bahsettiğiniz sorununuzun yanıtı için şu bilgilendirmelerin yeterli olacağı kanısındayım.
ek dosya ekleme kod ifadesi için if kullanarak bir kontrol sağlaması yapılması gerektiği görülmektedir.bu nedenle,aşağıdaki kodları;

frmEMailMergeTextBox adlı formunuzdaki Private Sub cmdMergetoEMailMulti_Click() tıklandığında olay yordamı içerisindeki Set msg=appOutlook.CreateItem(olMailItem) satırının bir altında yazılı olan kodlar ile değiştirdiğinizde sorununuz çözüme ulaştırılmış olacaktır kanısındayım.

NOT:kodlama,zaman bulunamadığından dolayı deneme imkanı olmamıştır.siz,denedikten sonra sonucu da bildirebilirsiniz.
 
Kod:
With msg
   .To = strEMailRecipient
   .Subject = strSubject
   .Body = strBody

   If Me.mtn_ekdizini = "" Or IsNull(Me.mtn_ekdizini) Then
   
   Else
     .Attachments.Add (Me.mtn_ekdizini)
   
   .Send
   End If
   End With

  
bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#21
Sayın atoz112
Dediklerinizi yaptım. Uyarı artık gelmiyor. Fakat eksiz olarak yine mail göndermiyor.
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
#22
(16/03/2015, 17:20)kadirdursun yazdı: Sayın atoz112
Dediklerinizi yaptım. Uyarı artık gelmiyor. Fakat eksiz olarak yine mail göndermiyor.

atoz112'nin eklediği koddaki
.Send
kodunu
End If
kodunun altına taşıyınız.


With msg


.To = strEMailRecipient
.Subject = strSubject
.Body = strBody

If Me.mtn_ekdizini = "" Or IsNull(Me.mtn_ekdizini) Then
Else
.Attachments.Add (Me.mtn_ekdizini)
End If
.Send
End With
Cevapla
#23
sayın kadirdursun,

öncelikle,yoğunluğum neticesinde;gecikmeli yanıt vermek durumunda kaldığım ve sizi cevap beklemeye yönlendirdiğim için özür dilerim.

fakat,sayın Ozan bey gerekli düzeltme bilgisi içeren yanıtlarını açıklamışlar.kendilerine teşekkürler bu arada.

konunuzun 20.mesajının bitiminde de not düşüldüğü gibi,bu yazılan kodlama denenme durumuna dair imkan ve zaman olmadığından dahil edilmişti.kodlamanın yazıldığı metin dosyasından kopyala-yapıştır yaparken,sanırım atlanmış olunacak ki,sayın ozan beyin de dikkat çektikleri gibi,

Kod:
.send
komutunun düzeltilmesi ile sorununuz çözüme ulaşmış olacaktır.bilginize.

iyi çalışmalar,
saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#24
Sayın ozanakkaya;
Dediğiniz gibi yaptım. Sorun çözüldü. Hem size hemde Sayın atoz112'ye teşekkür ederim.
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task