Mehmet Sait
Altın Üye
- Katılım
- 19 Ekim 2009
- Mesajlar
- 834
- Excel Vers. ve Dili
- Office 2016 TR
- Altın Üyelik Bitiş Tarihi
- 08-09-2028
Merhabab,
Ekli kod ile mail gönderebiliyorum ancak belirli bir tabloyu gönderme için alan seçimini ("$BD$7:$BT$78") nasıl yapabilirim.
Yardımlarınız için teşekkür ederim.
Ekli kod ile mail gönderebiliyorum ancak belirli bir tabloyu gönderme için alan seçimini ("$BD$7:$BT$78") nasıl yapabilirim.
Kod:
Dim IsCreated As Boolean
Dim i As Long
Dim PdfFile As String, Title As String
Dim OutlApp As Object
If [BE5] = "" Then
MsgBox "Lütfen İmza Belirtiniz..!", vbInformation, "MSC"
Range("BQ57").Select
GoTo 10
Else
Title = Range("BD7")
Kime = Range("BE2")
Bilgi = Range("BE3")
Gizli = Range("BE4")
Mesaj = Range("BE5")
' PdfFile = ActiveWorkbook.FullName
' i = InStrRev(PdfFile, ".")
' If i > 1 Then PdfFile = Left(PdfFile, i - 1)
PdfFile = PdfFile & "" & [BD7] & ".pdf"
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
Set OutlApp = CreateObject("Outlook.Application")
IsCreated = True
End If
OutlApp.Visible = True
On Error GoTo 0
With OutlApp.CreateItem(0)
.Subject = Title
.To = Kime
.CC = Bilgi ' bilgi olarak kime
.BCC = Gizli
.Body = Mesaj
'"....," & vbLf & vbLf _
' & " ....." & vbLf & vbLf _
' & "...." & vbLf _
' & [C81] & vbLf _
' & [C83] & vbLf & vbLf
.Attachments.Add PdfFile
On Error Resume Next
.Send
Application.Visible = True
If Err Then
MsgBox "E-mail gonderilemedi", vbExclamation, ""
Else
MsgBox " E-mail gonderildi... İşleminiz tamamlanmıştır..! ", vbInformation, ""
End If
On Error GoTo 0
End With
Kill PdfFile
If IsCreated Then OutlApp.Quit
Set OutlApp = Nothing