Mutabakat Raporu Yardım

[hsynsdnr]

merhaba,

ekteki mutabakat raporunda mail at dediğimde mutabakatta yazan e-mail outlook ta to ya gelmeli ve konu da mutabakatta excelde yazan bilgi outlooka düşmesi konusunda yardımınızı rica ederim.

 

[Emir Hüseyin Çoban]

. . .

Formu PDF olarak mail ekine mi alacak.

. . .

 

[hsynsdnr]

. . .

Formu pdf olarak mail ekine mi alacak.

. . .

evet form pdf olarak mail ekinde olacak ama mail adresi ve konuda email e exceldeki bilgilerle gelecek.

 

[Emir Hüseyin Çoban]

. . .

Mailleri tek seferde hepsini gönderebiliriz veya sizin seçtiğiniz firmaya tek mail gönderebiliriz.

Forumda OUTLOOK yazarak arama yaparsanız, başka örneklere ulaşabilirsiniz. Fikir verecektir.

. . .

 

[Emir Hüseyin Çoban]

. . .

Tablonun içerisindeki kodları görmemişim.
Şu ilaveleri yaparak deneyiniz.

    yol = CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & ActiveSheet.Name & "_" & Format(Now(), "yyyymmdd\_hhmm") & ".pdf"
[COLOR="Blue"]    kime = Sheets("Mutabakat_Sayfasi").Range("E14")
    konu = Sheets("Mutabakat_Sayfasi").Range("E15")[/COLOR]
    
kodlarınız...
kodlarınız...
kodlarınız...
    
    Dim objOutlook As Object
    Dim objMail As Object
    Dim i As Long, NoA As Long
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    With objMail
        .To = [COLOR="Blue"]kime[/COLOR]
        .CC = ""
        .Subject = [COLOR="Blue"]konu[/COLOR]
        .Attachments.Add yol
        .Save
        .Display
        '.Send
    End With

. . .

 

[hsynsdnr]

. . .

Tablonun içerisindeki kodları görmemişim.
Şu ilaveleri yaparak deneyiniz.

    yol = CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & ActiveSheet.Name & "_" & Format(Now(), "yyyymmdd\_hhmm") & ".pdf"
[COLOR="Blue"]    kime = Sheets("Mutabakat_Sayfasi").Range("E14")
    konu = Sheets("Mutabakat_Sayfasi").Range("E15")[/COLOR]
    
kodlarınız...
kodlarınız...
kodlarınız...
    
    Dim objOutlook As Object
    Dim objMail As Object
    Dim i As Long, NoA As Long
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    With objMail
        .To = [COLOR="Blue"]kime[/COLOR]
        .CC = ""
        .Subject = [COLOR="Blue"]konu[/COLOR]
        .Attachments.Add yol
        .Save
        .Display
        '.Send
    End With

. . .

Hüseyin Bey,

Öncelikle ilginiz için teşekkürler.Fakat toplu gönderme konusunda arama yapmama rağmen çözüm üretemedim.Bir toplu gönderim listesi oluşturdum.Bu listedeki bilgileri yine pdf formatında toplu gönder dediğimde mailde ayrı ayrı pdf dosyalarda gönderilmesi konusunda yardımınızı rica ederim.Benim tek tek gönderim yaptığım formatta masaüstüne tek bir mutabakat formu yaratıp yeni gönderimlerde bu form revize oluyordu.Toplu gönderim yaptığımızda her bir pdf in adıda farklı olmalı ve masaüstünde oluşturduğum mutabakat klasörüne bu isimle kaydedilmesi gerekecek.

Yardımcı olabilirseniz sevinirim.

Saygılarımla,

 

[Emir Hüseyin Çoban]

. . .

Şu konuyu bir inceleyin. Burada yaptığım gibi seçilen hücre aralığına gönder şeklinde mi yapalım yoksa bir tıklamada hepsine mi göndersin.

http://www.excel.web.tr/f47/cari-mutabakat-mektubu-t143831.html

. . .

 

[hsynsdnr]

. . .

Şu konuyu bir inceleyin. Burada yaptığım gibi seçilen hücre aralığına gönder şeklinde mi yapalım yoksa bir tıklamada hepsine mi göndersin.

http://www.excel.web.tr/f47/cari-mutabakat-mektubu-t143831.html

. . .

Üstadım,

Seçmeli yi şimdi gördüm.Seçmeli hali daha güzel miş
Seçmeli yapalım bence

Şimdiden eline sağlık.

 

[Emir Hüseyin Çoban]

. . .

Cari Hesap Listesi ile Toplu Gönderim Listesi kontrollü oluşturuyorsunuz değil mi.
Aynı müşterinin iki sayfada da bakiyeleri aynı olmalı.

. . .

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Çalışma sistemi daha önce verdiğim linkteki gibi seçime göre çalışır.

. . .

 

[hsynsdnr]

Hüseyin Bey,

birşey dikkatimi çekti biz bu raporda toplu gönderimi seçenekli yaptıktan sonra seçip gönder dediğimizde hep aynı mail adresini veriyor.

Bir bakabilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

http://www.excel.web.tr/f48/mutabakat-raporu-yardym-t144215/post784073.html

Bende bir sorun görünmüyor.
Kullandığınız tablonun son halinin örneğini yüklerseniz inceleriz.

Ekran Görüntüsü (GİF):

. . .