excel dosyasını köprü bağlantıyla mail olarak yollama

[ilkercivil]

merhabalar excelde bir bilgilendirme formu hazırladım. bu bilgilendirme formunu doldurmaları için ilgili kişilere yollayacağım. excel açılıp bilgiler girildikten sonra gönder şeklinde buton veya köprü bağlantı yapıp buna tıklandığında mail gönderme kısmı açılıp bu dosyanın da mail ekine otomatik eklenmesini istiyorum.

 

[bmutlu966]

Örnek dosyayı kendinize göre uyarlayabilirsiniz sanırım.

 

[ilkercivil]

Altın üye olmam gerekiyor sanırım.

 

[bmutlu966]

Sub mailgonder_eposta1()
Dim wb1 As Workbook

Set wb1 = ActiveWorkbook
If Val(Application.Version) >= 12 Then
If wb1.FileFormat = 51 And wb1.HasVBProject = True Then
MsgBox "There is VBA code in this xlsx file. There will" & vbNewLine & _
"be no VBA code in the file you send. Save the" & vbNewLine & _
"file as a macro-enabled (. Xlsm) and then retry the macro.", vbInformation
Exit Sub
End If
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


With OutMail
.To = [A2] 'mail adresini A2 hücresinden alir
.CC = ""
.BCC = ""
.Subject = [B2] 'mail konusunu B2 hücresinden alir
.Attachments.Add wb1.FullName


.Display

End With

Set wrdEdit = Nothing
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[ilkercivil]

teşekkürler