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.