AccessTr.neT

Eğer göndermezse alttaki gibi değiştirin zira başka konunuzda yollamamıştı bu şekilde yolladı.

    With objMail

        .To = maill

        .Subject = "2021 WINPERAX Teknik Ürün Katalo?u"

        .body = "Sayyn yetkili, Ekte 2021 WINPERAX Teknik Ürün Katalo?u bulunmaktadyr. Yyi Çaly?malar Dileriz.Saygylarymyzla,"

        .Importance = 1

        .Sensitivity = 3

        .Attachments.Add ek

'        .Display

        .Send

        Application.Wait (Now + TimeValue("0:00:20"))

    End With

Bu dosyayı deneyiniz abey.
imza varsa onuda yollar ve id numarasına göre yollar öncekinde satır numarasına göre yapmışız
Artık satır no değil id numaraları girin başlama ve bitiş için.


Email_Sayfa bu sayfayı silmeyin.
.Send bunları aktif edin yani başındaki tek tırnak kalkacak ve dosyadaki emailler yerine kendi emailleri giriniz.

Feraz Hocam hata alıyorum ama konu cevaplanmışlarda olduğu için dosya yükleyemiyorum bu arada özel mesaj kutum boş olmasına rağmen kotam dolu gözüküyor. Gelen ve giden özel mesaj kutumu tamamen boşattım ama yeni mesaj atamıyorum. Bu durumu nasıl çözebilirim. Bilgi verirseniz sevinirim. Teşekkürler.

(16/04/2021, 17:55)Oğuz Türkyılmaz yazdı: [ -> ]Feraz Hocam hata alıyorum ama konu cevaplanmışlarda olduğu için dosya yükleyemiyorum bu arada özel mesaj kutum boş olmasına rağmen kotam dolu gözüküyor. Gelen ve giden özel mesaj kutumu tamamen boşattım ama yeni mesaj atamıyorum. Bu durumu nasıl çözebilirim. Bilgi verirseniz sevinirim. Teşekkürler.

Konuyu taşımıştım cevapsızlara abey.

Burda Hata Alıyorum

Private Sub CommandButton1_Click() bunun üstünde olacak yani kodların en yukarısında olacak const ile başlayanlar.

---

Ayrıca son eklediğim saayfayı kilitlemişsiniz.Bunun için resimdeki sarı boyalı yerleri ekleyip deneyin.