E-POSTA GÖNDERMEDE HATA YAŞIYORUM

[buurakengin]

Butona tıkladığımda ".To = adres" satırında hata veriyor. Yardımcı olursanız çok sevinirim.

Sub Eposta()

Set bg = Worksheets("BOLGE")

Dim app As Object
Dim CurrFile As String

  Set app = CreateObject("Outlook.Application")
  Set posta = app.CreateItem(olMailItem)

sıra = 2

bolgead = bg.Cells(sıra, 3)
dosyayolu = bg.Cells(2, 6)
adres = bg.Cells(sıra, 4)
bilgi = bg.Cells(9, 6)
konu = bg.Cells(6, 6)
metin = bg.Cells(12, 6)
dosya = dosyayolu & bolgead & ".xlsx"
While bolgead <> 0
 If bg.Cells(sıra, 5) = "" Then
With posta
      .To = adres
      .CC = bilgi
      .BCC = ""
      .Subject = konu
      .HTMLBody = metin
      .Attachments.Add dosya
      .Display
      .Send
       bg.Cells(sıra, 5) = "Gönderildi"
    End With
    
Else
End If

sıra = sıra + 1

bolgead = bg.Cells(sıra, 3)
adres = bg.Cells(sıra, 4)
dosya = dosyayolu & bolgead & ".xlsx"
 Wend

End Sub

 

[Ömer]

Merhaba,

Kodlarda bir sorun görünmüyor.

bg.Cells(sıra, 4)

değeri nedir?

Örnek dosya ekleyebilir misiniz.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

 

[buurakengin]

Şuan da dosya yükleyemiyorum.
bg.Cells(sıra, 4) değeri 4. sütunda e postalar var onu çekiyor ordan.

 

[Ömer]

Ben kodları denedim, bende hata vermedi. Hata kodu nedir?

 

[buurakengin]

Başka bir kod satırı bu hatayı tetikliyormuş sorunu çözdüm teşekkür ederim ilginize