Sayfayı Outlook Mail Taslaklarına Kaydetme

[emiroglu07]

Üstadlar merhaba elimdedi excel sayfasını outlook mail taslaklarına kaydetmek istiyorum Pdf olarak
Zamanı Geldiğinde Altında yazan mail adresine
Ve Açıklamasıyla birlikte gönderecek şekilde yardımcı olabilirmisiniz acaba

İndir mail

Dosyayı indir mail

dosya.co

 

[emiroglu07]

Üstadlar Yardım edebilecek biri yokmudur acaba ?

 

[MGokboruAtan]

merhaba dosya yollarını değiştirebilirsiniz

 

[emiroglu07]

İndir MAİL

Dosyayı indir MAİL

dosya.co

üstad ben bu şekilde ayarladım istenende bu şekilde ama tek sıkıntım var 1001 sayfasını pdf yaptığımıda diğer veriler kayboluyor
bu konu hakkında yardımınız olursa çok sevinirim birde altın üyeliğim olmadığı için makroyu direk paylaşabilirseniz çok sevinirim

 

[MGokboruAtan]

Sub ExcelToPDFandAttachToOutlookDrafts()
    ' PDF dosyasını oluşturmak için sayfanın adını belirtin
    Dim sheetName As String
    sheetName = "1001" ' Sayfa adını kendi sayfanıza göre değiştirin
    
    ' PDF dosyasının kaydedileceği yol ve dosya adını belirtin
    Dim pdfPath As String
    pdfPath = "C:\dosya yolunu yaz \example.pdf" ' Kayıt yolunu kendi sistem yolunuza göre değiştirin
    
    ' E-posta konusunu ve içeriğini belirtin
    Dim emailSubject As String
    emailSubject = "Konu: Excel Sayfa PDF'e Dönüştürüldü"
    Dim emailBody As String
    emailBody = "Merhaba, Ekte Excel sayfasının PDF formatına dönüştürülmüş hali bulunmaktadır."
    
    ' Sayfa PDF'e dönüştürme işlemi
    On Error Resume Next
    Sheets(sheetName).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
    On Error GoTo 0
    
    If Err.Number <> 0 Then
        MsgBox "PDF oluşturma hatası: " & Err.Description, vbExclamation
        Exit Sub
    End If
    
    ' Outlook taslağı oluşturma ve PDF ekleyerek kaydetme işlemi
    CreateOutlookDraftWithAttachment emailSubject, emailBody, pdfPath
End Sub

Sub CreateOutlookDraftWithAttachment(subject As String, body As String, attachmentPath As String)
    Dim outlookApp As Object
    Set outlookApp = CreateObject("Outlook.Application")
    
    Dim outlookMail As Object
    Set outlookMail = outlookApp.CreateItem(0)
    
    ' E-posta bilgilerini ayarla
    With outlookMail
        .subject = subject
        .body = body
        .Attachments.Add attachmentPath
        
        ' Outlook taslağını belirli bir dizine kaydet
        SaveDraftToFolder outlookMail, "C:\Users\XXXXXXXXXXXX\Desktop\Drafts"
    End With
    
    ' Kullanıcıya e-posta gönderme onayını göster
    If MsgBox("E-posta taslağı oluşturuldu. Şimdi e-postayı göndermek ister misiniz?", vbQuestion + vbYesNo, "E-posta Gönder") = vbYes Then
        outlookMail.Display
    End If
    
    ' Nesneleri serbest bırak
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub

Sub SaveDraftToFolder(mailItem As Object, folderPath As String)
    ' Belirli bir dizine Outlook taslağını kaydet
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    ' Dizin yoksa oluştur
    If Not fs.FolderExists(folderPath) Then
        fs.CreateFolder folderPath
    End If
    
    ' Taslağı belirli dizine kaydet
    mailItem.SaveAs folderPath & "\" & "ExcelToPDFDraft.msg"
    
    ' Nesneleri serbest bırak
    Set fs = Nothing
End Sub

 

[emiroglu07]

İndir mail

Dosyayı indir mail

dosya.co

Üstad öncelikle zaman ayırıp yardımcı olduğunuz için teşekkür ederim
.Attachments.Add attachmentPath bu kodda hata verdi

birde sizden önce programı reviz etmiştim
Excel sayfasını InputBox olarak kullanmak için ayarladım ama sıkıntım şu
mesela 1001 sayfasını yazdığımda herşey normal ama 1002 sayfasında pdf 1002 oluyor mail bilgileri hala 1001 ait kısacası
Villano ne ise mail bilgilerinin ve Sayfasının pdf sinin aynısı olması gereken bir makro lazım eğer ki sizi sıkıntıya sokup yormayacaksan yardımınızı istemekteyim.

 

[MGokboruAtan]

Emir bey dosyanızı indirdim ve açtım dosya yolunu düzenledim. Ancak düzgün bir şekilde 1001 ve 1002 yazdığınızda çalışıyor herhangi bir sorun göremedim sizin hata almamanız gerekiyor belki de hatanızı office sürümünden dolayı alıyorsunuzdur.

 

[emiroglu07]

Üstadlar konu hakkında yardımcı olabilecek varmı acaba

 

[emiroglu07]

Üstad pdf olarak 1002 getiriyor ama mail bilgileri 1001 mail bilgileri 1002 değil malesef

 

[MGokboruAtan]

Al hocam çok uğraştırdı ama sonunda oldu kontroller yapıldı. Her seferinde aratmada sıkıntı yaşıyordum bunu çözmek adına j5 ten başlayarak bir tablo çektirdim bu şekilde sağlıklı ve hızlı oldu eğer indiremiyorsan bana mail adresi verebilirsen sana mail olarak atayım

 

[emiroglu07]

emiroglu07@hotmail.com

Üstad sana zahmet verdim hakkını helal et bir yemek borcum olsun didime yolun düşerse

 

[MGokboruAtan]

Estağfurullah inşallah uygundur. Yolumuz düşerse beraber yeriz inşallah Hayırlı günler

 

[emiroglu07]

Üstad eline koluna sağlık çok teşekkür ederim çok güzel olmuş

 

[MGokboruAtan]

Kolay gelsin Emir Bey