Çözüldü Pdf ve mail gönderme kodu hk.

[kemal turan]

Merhaba,
Forumdan bulduğum aşağıdaki kod ile dosyayı pdf ye çevirip mail göderebiliyorum.
İsteğim 2 nci kişiye de gönderebilmek. Başka bir değişile CC göndermek için kod ilavesi rica ediyorum.
Teşekkür ediyorum

Sub MAIL_GONDER()
    Dim Uygulama As Object
    Dim Yeni_Mail As Object
    
    If Range("AX18").Value = "" Then
        MsgBox "Lütfen dosya adını yazınız!", vbCritical
        Exit Sub
    End If

    Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    Dosya_Adi = Range("AX18").Value & ".pdf"

    Range("Print_Area").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Yol & "\" & Dosya_Adi, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    Set Uygulama = CreateObject("Outlook.Application")
    Set Yeni_Mail = Uygulama.CreateItem(0)

    With Yeni_Mail
        .Subject = Range("AX14").Value
        .Body = Range("AX21").Value
        .Attachments.Add Yol & "\" & Dosya_Adi
        .Save
        If Range("AX10").Value = "" Then
            .To = ""
            .Display
        Else
            .To = Range("DN17").Value
            .Send
            MsgBox "Mail gönderildi."
        End If
    End With
    
    Set Uygulama = Nothing
    Set Yeni_Mail = Nothing
End Sub

 

[Biolightant]

Merhaba,

Yukarı da sizin kodlarda [ With Yeni_Mail ] ile başlayan kod parçası ile

alttaki örnek te [ With OutMail ] ile başlayan kod parçasının devamında [ .CC ]

' Outlook Uygulaması oluştur Set OutApp = CreateObject("Outlook.Application") ' Yeni bir e-posta öğesi oluştur Set OutMail = OutApp.CreateItem(0) With OutMail .To = Mail ' Alıcı e-posta adresi .CC = mailcc ' Alıcı ek e-posta adresleri (gözükür) .Subject = mailkonu ' E-posta konusu .HTMLBody = mailmesaj & mailHTML ' HTML formatında gövde metni .Attachments.Add EkDosya01 ' Hücre resmini ek olarak ekle .Attachments.Add EkDosya02 ' Excel dosyasını ek olarak ekle .Display ' E-postayı görüntüle (veya .Send ile gönder) End With

 

[kemal turan]

Şu şekilde kod görünümü oluştu

Sub GONDER()
Set OutApp = CreateObject("Outlook.Application") ' Yeni bir e-posta öğesi oluştur
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Mail ' Alıcı e-posta adresi
.CC = mailcc ' Alıcı ek e-posta adresleri (gözükür)
.Subject = mailkonu ' E-posta konusu
.HTMLBody = mailmesaj & mailHTML ' HTML formatında gövde metni
.Attachments.Add EkDosya01 ' Hücre resmini ek olarak ekle
.Attachments.Add EkDosya02 ' Excel dosyasını ek olarak ekle
.Display ' E-postayı görüntüle (veya .Send ile gönder) 
End With

End Sub

 

[Biolightant]

Merhaba yeniden,

Sizin kodlar da ki

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

.To="" ve .To = Range("DN17").Value

Alt satırlarına

.CC="***@mail.com" ekleyiniz

 

[kemal turan]

Ekledim
Çok teşekkür ederim
Selametle kalın