Sayfa içindeki verileri outlook'a aktarma

[sinnernekolens]

Merhaba arkadaşlar iyi akşamlar,
Ekli örnek sayfa içindeki bilgileri butona tıkladığım da outlook da yeni bir mesaj kutusu açarak verileri içine alması için yardımlarınızı rica ederim. A-B-C sütunundaki veriler değişken ve daha da uzayabilir. yazılar "Courier New" 10 punta olacaktır. yardımlarınızı rica ederim.

 

[ismailem]

Merhaba arkadaşlar iyi akşamlar,
Ekli örnek sayfa içindeki bilgileri butona tıkladığım da outlook da yeni bir mesaj kutusu açarak verileri içine alması için yardımlarınızı rica ederim. A-B-C sütunundaki veriler değişken ve daha da uzayabilir. yazılar "Courier New" 10 punta olacaktır. yardımlarınızı rica ederim.

https://www.egitimhane.com/cok-amacli-ek-ders-puantaj-programi-v-7-0-d334073.html linkte bu işi gören bir çalışmam mevcut kodlara bakıp alabilirsin gerekli kodları.

 

[sinnernekolens]

Teşekkür ederim çok güzel hazırlanmış elinize sağlık. Benim fazla bilgim olmadığı için maalesef yapamadım.

 

[bmutlu966]

A6:C42 arasını Outlook gövdesine kopyalar.

 

[sinnernekolens]

İyi günler, teşekkür ederim elinize sağlık, bende benzer bir şey buldum onu denedim güzel oldu ancak outlook imzasını ekleyemedim koda.
ayrıca çift tıklama ile satır ekleme yaptım, aynı şekilde silme de yapılabilir miz yardımlarınızı rica ederim.

birde bazı yazıların outlook'a aktarırken Bold/Kalın yazı olmasını istiyorum. Mesela D sutünun da kalın olmasını istediğim satırlara bir kod versek işareti koyduğumda o satırları Bold yapsa süper olurdu.

Sub kod()

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    metin = ""
    For i = 5 To Cells(Rows.Count, "A").End(3).Row
        metin = metin & Format(Cells(i, "A"), "dd.mm.yyyy" & " AT ") & Format(Cells(i, "B"), "hh:mm") & " " & Cells(i, "C") & Chr(10)
    Next i

    Dim xlOutlook As Object
    Dim xlMail As Object
    Set xlOutlook = CreateObject("Outlook.Application")
    Set xlMail = xlOutlook.CreateItem(0)

    With xlMail
        .To = Range("B1").Value
        .CC = Range("B2").Value
        .Subject = Range("B3").Value
        .Body = metin & Chr(10)
        .Save
        .Display
       [COLOR="DarkGreen"] '.Send[/COLOR]
    End With

    Set xlMail = Nothing
    Set xlOutlook = Nothing

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

 

[sinnernekolens]

iyi akşamlar, yardımlarınız rica olunur.

 

[sinnernekolens]

İyi günler, yukarıda ki konu hakkında yardımcı olabilecek varsa destek rica ederim.
- çift tıklama ile satır ekleme yaptım, aynı şekilde silme de yapabilirmiyiz
- bazı yazıların outlook'a aktarırken Bold/Kalın yazı yapabilir miyiz. Mesela D sutünun da kalın olmasını istediğim satırlara 1 veya K işareti koyduğumda o satırları Bold yapabilir mi.
- son olarak sayfadaki veriler outlooka aktarıldığın da yazı aralığı biraz fala görünüyor. nasıl düzeltebiliriz.

 

[sinnernekolens]

İyi akşamlar,
Aşağıdaki konular için yardımlarınızı rica ederim.
1-çift tıklama ile satır ekleme yaptım, aynı şekilde silme de yapabilir miyiz
2-bazı yazıların outlook'a aktarırken Bold/Kalın yazı olmasını istiyorum. Mesela D sutünun da kalın olmasını istediğim satırlara 1 veya K işareti koyduğumda o satırları Bold yapabilir mi.