Şartlı Mail Eki Gönderme

[bydogannn67]

Merhabalar,

Aşağıdaki kod ile TextBox1 de yolu olan dosyayı gönderebiliyorum ama sadece eksiz mail göndermek istediğimde " .Attachments.Add Dosyayolu " satırında hata alıyorum bunu şartlı nasıl yapabiliriz yardımcı olabilirmisiniz

Private Sub CommandButton27_Click()
    Application.ScreenUpdating = False
If ListBox1.ListIndex < 0 Or TextBox6 = "" Then
MsgBox "Mail Bilgisi Girmediniz", vbCritical
Exit Sub
End If
    Dim SD As Worksheet: Set SD = Sheets("FİRMA MAİL LİSTESİ")
    x = SD.Cells(Rows.Count, "B").End(3).Row
  For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
 Set R = SD.Range("B1:B" & x).Find(ListBox1.List(i, 1), , , xlWhole)
 If Not R Is Nothing Then
kime = SD.Cells(R.Row, "C")
SD.Cells(3, "G") = TextBox6.Text
SD.Cells(4, "G") = TextBox7.Text
SD.Cells(5, "G") = TextBox8.Text
Dosyayolu = TextBox1.Text
  Dim objOutlook As Object
                Dim objMail As Object
                Set objOutlook = CreateObject("Outlook.Application")
                Set objMail = objOutlook.CreateItem(0)
                With objMail
                    .Display
                    .To = kime
                    .CC = ""
                    .Subject = SD.Cells(3, "G")
                    .Attachments.Add Dosyayolu
                     .HtmlBody = SD.Range("G4") & "<br>" & "<br>" & Chr(10) & Chr(10) & _
                    SD.Range("G5") & "<br>" & _
                   .HtmlBody
                    .Save
                End With
                SD.Cells(3, "G") = " "
                SD.Cells(4, "G") = " "
                SD.Cells(5, "G") = " "
                 End If
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[Emir Hüseyin Çoban]

. . .

With objMail
    .Display
    .To = kime
    .CC = ""
    .Subject = SD.Cells(3, "G")
   [COLOR="DarkRed"] If Dosyayolu <> "" Then
        .Attachments.Add Dosyayolu
    End If[/COLOR]
    .HtmlBody = SD.Range("G4") & "<br>" & "<br>" & Chr(10) & Chr(10) & _
    SD.Range("G5") & "<br>" & _
    .HtmlBody
    .Save
End With

. . .

 

[bydogannn67]

Teşekkürler hocam