Buton ile otomatik pdf çevir/kaydet ve mail gönder.

[Emir Hüseyin Çoban]

. . .

19 nolu mesajdaki düzenleme ile bir mail gönderdim size.

    With Yeni_Mail
        .Subject = Range("AX14").Value
        .Body = Range("AX21").Value
        .Attachments.Add Yol & "\" & Dosya_Adi
        .Save
        If Range("AX10") = "" Then
            .To = ""
            .Display
        Else
  [B]          .To = Range("AX10").Value[/B]
            .Send
            MsgBox "Mail gönderildi."
        End If
    End With

. . .

 

[assenucler]

Çok çok teşekkürler

Değerli Üstadım,


İlginiz ve yardımseverliğiniz için size ne kadar teşekkür etsem az.

Email'inizi aldım ve yeni kodları kullanarak kendi adresime yollayarak, olumlu sonuç aldım.

Allah sizden razı ve her şey gönlünüzün güzelliğince olsun.

En içten sevgi ve saygılarımı sunarım.

 

[yavuzadak]

Korhan hocam,

Kod çok işimize yarayacak ama bi hata alıyorum

"Range("Print_Area").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Yol & "\" & Dosya_Adi, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False"

nasıl aktif hale getirebilirim kodu acaba. 2007 kullanmaktayım.Şimdiden teşekkür ederim.Hayırlı bayramlar

 

[Emir Hüseyin Çoban]

Korhan hocam,

Kod çok işimize yarayacak ama bi hata alıyorum

"Range("Print_Area").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Yol & "\" & Dosya_Adi, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False"

nasıl aktif hale getirebilirim kodu acaba. 2007 kullanmaktayım.Şimdiden teşekkür ederim.Hayırlı bayramlar

Office 2007 nin PDF çevirme özelliğini aktif etmek için saveaspdf programını yükleminiz gerekiyor. Microsort office sitesinde aratın veya
Farklı kaydetten diğer biçimler dediğinizde sizi yönlendirecektir.

.

 

[yavuzadak]

Hüseyin hocam,

saveaspdf programınıda yukledim ama yine aynı hatayı veriyor

 

[Emir Hüseyin Çoban]

Hüseyin hocam,
saveaspdf programınıda yukledim ama yine aynı hatayı veriyor

. . .

Hata aldığınız dosyayı yüklerseniz inceleyelim.

. . .

 

[fledermaus]

Korhan Bey Merhabalar,

Yardımlarınız için gerçekten çok teşekkür ederim, İşlerimi fazlasıyla kolaylaştırdı. Bir konuda daha yardımınıza ihtiyacım olacak. Söz konusu çalışma kitabındaki sayfalara print için buton eklemeyi düşünüyorum. Nasıl bir kod yazmalıyım ? Yardımcı olabilir misniz ? """Not: Çalşma kitabını onedrive da tutacağım ve kitabı açan kişi kendi printer ından çıktı alabilmeli... """ Şimdiden çok teşekkür ederim.

Saygılarımla,

 

[fledermaus]

Korhan Bey Merhaba,

Konuyla ilgili yardımcı olabilecek misiniz?

 

[fledermaus]

Arkadaşlar Konuyla İlgili Yardımcı Olabilecek Biri Var mı ?