Merhabalar,
Aşağıdaki kodlar ile belirlenmiş olan sayfayı pdf kaydetmeden mail gönderebiliyorum. Ancak bu maile outlookta kullanmış olduğum imzayı da eklemek istiyorum. Yardımcı olabilecek olan var mı acaba?
Aşağıdaki kodlar ile belirlenmiş olan sayfayı pdf kaydetmeden mail gönderebiliyorum. Ancak bu maile outlookta kullanmış olduğum imzayı da eklemek istiyorum. Yardımcı olabilecek olan var mı acaba?
Kod:
Sub Bilgileri_PDF_Olarak_Gonder_Kaydetme()
'Working only in 2007 and up
Dim sh As Worksheet
Dim TempFilePath As String
Dim TempFileName As String
Dim FileName As String
'Temporary path to save the PDF files
'You can also use another folder like
'TempFilePath = "C:\Users\Ron\MyFolder\"
TempFilePath = Environ$("temp") & "\"
'Loop through every worksheet
For Each sh In ThisWorkbook.Worksheets
FileName = ""
'Test A1 for a mail address
If sh.Range("F5").Value Like "?*@?*.?*" Then
'If there is a mail address in F5 create the file name and the PDF
'TempFileName = TempFilePath & "Sheet " & sh.Name & " of "
TempFileName = TempFilePath & sh.Range("C5").Value & " " & sh.Range("D5").Value & " " _
& "Hesap Özeti" & " " _
& Format(Now, "dd-mm-yyyy") & ".pdf"
FileName = RDB_Create_PDF(sh, TempFileName, True, False)
'If publishing is OK create the mail
If FileName <> "" Then
RDB_Mail_PDF_Outlook FileName, sh.Range("F5").Value, "Cari Mutabakat", _
"Mutabakatınızın yer aldığı PDF dosyası ekte yer almaktadır." _
[COLOR="Red"][B][SIZE="3"]BURAYA İMZAYI YERLEŞTİRMEK İSTİYORUM....[/SIZE][/B][/COLOR]
'After the mail is created delete the PDF file in TempFilePath
If Dir(TempFileName) <> "" Then Kill TempFileName
Else
MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
"Microsoft Add-in is not installed" & vbNewLine & _
"The path to Save the file in arg 2 is not correct" & vbNewLine & _
"You didn't want to overwrite the existing PDF if it exist"
End If
End If
Next sh
End Sub