merhabalar
aşağıdaki gibi mail gönderme makrom var.
excelden belirli aralığı mail'in içine alıp gönderiyor. ancak buna ek olarak C sürücü içinde bir dosyaya link vermek istiyorum ama beceremedim.
'C:\Klasör\aaa.xlsx'>Lütfen Burayı Tıklayın
Lütfen buraya tıklayın cümlesi linkli olacak ve C:\Klasör\aaa.xlsx dosyasına atanmış/linkli olacak.
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
For I = 2 To 10 ' satır
For J = 13 To 14 'Sütun
xEmailBody = xEmailBody & Chr(9) & Sheets("Program").Cells(I, J).Value
Next
xEmailBody = xEmailBody & vbNewLine
Next
xEmailBody = "Merhaba" & vbLf & "Lütfen aşağıdaki durumu inceleyiniz " & vbLf & xEmailBody
With Mail
.To = "xxx@yy.com.tr"
.CC = ""
.BCC = ""
.Subject = "kontrol"
.Body = xEmailBody & vbLf & "<a href='C:\Klasör\aaa.xlsx'>Lütfen Burayı Tıklayın </a>"
.Send
End With
Set Mail = Nothing
Set Makro = Nothing
On Error GoTo 0
şimdiden teşekkür ederim.
aşağıdaki gibi mail gönderme makrom var.
excelden belirli aralığı mail'in içine alıp gönderiyor. ancak buna ek olarak C sürücü içinde bir dosyaya link vermek istiyorum ama beceremedim.
'C:\Klasör\aaa.xlsx'>Lütfen Burayı Tıklayın
Lütfen buraya tıklayın cümlesi linkli olacak ve C:\Klasör\aaa.xlsx dosyasına atanmış/linkli olacak.
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
For I = 2 To 10 ' satır
For J = 13 To 14 'Sütun
xEmailBody = xEmailBody & Chr(9) & Sheets("Program").Cells(I, J).Value
Next
xEmailBody = xEmailBody & vbNewLine
Next
xEmailBody = "Merhaba" & vbLf & "Lütfen aşağıdaki durumu inceleyiniz " & vbLf & xEmailBody
With Mail
.To = "xxx@yy.com.tr"
.CC = ""
.BCC = ""
.Subject = "kontrol"
.Body = xEmailBody & vbLf & "<a href='C:\Klasör\aaa.xlsx'>Lütfen Burayı Tıklayın </a>"
.Send
End With
Set Mail = Nothing
Set Makro = Nothing
On Error GoTo 0
şimdiden teşekkür ederim.