Excel ile Outlook'u kullanarak e-mail gönderme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel ile Outlook'u kullanarak e-mail gönderme

İleti#1)  OMERULLAH » 31 Mar 2021 18:33

Sayın Uzman arkadaşlar,

Excel ile Outlook'u kullanarak ekteki örnekteki gibi e-mail gönderiyorum.
Bu örnek çalışmaya iki senaryo daha eklemek istiyorum.
"Gönder" simgesine bastığımda mevcut kod sadece "SETTINGS" sayfasını PDF formatında göndermektedir.
Mail olarak gönderilecek sayfalar "DATA_RZV", "DATA_CAN", "DATA_AGE" şeklinde belirlenmiştir.
"LICENSE", "TEMPLATE", "PARAMETRE", "SETTINGS" isimli sayfalar mail olarak gönderilmeyecektir.
Outlook'taki kurumsal imzanın gönderilecek mail metninin sonuna eklenmesi mümkün müdür?
Mümkünse mevcut kodu nasıl revize etmeliyim?
Benim için çok kıymetli olan yardımlarınızı rica ediyorum.

Saygılarımla.

Örnek Çalışma Linki:
https://s6.dosya.tc/server/823m7y/E-Mai ... r.rar.html
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 11:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 52
İleti: 175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

Cevap: Excel ile Outlook'u kullanarak e-mail gönderme

İleti#2)  OMERULLAH » 02 Nis 2021 17:29

Sayın Uzman arkadaşlar,

Ekteki örnek çalışmada ilk mesajda istenenlerden bazılarını yapabildim.
Eksik kalan senaryoları tamamlamak için yardımlarınızı rica ediyorum.
Aktif sayfa yerine "LICENSE", "TEMPLATE", "PARAMETRE", "SETTINGS" sayfaları hariç, diğer sayfaları tek bir pdf dosyası olarak gönderilmelidir.
"SETTINGS" sayfasının "H23", "H25", "H31" hücrelerinde metinleri alt alta sıralanmsını sağlamak için mevcut kodları nasıl revize etmeliyim.

Saygılarımla.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 11:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 52
İleti: 175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

Cevap: Excel ile Outlook'u kullanarak e-mail gönderme

İleti#3)  gokhanboyaci » 02 Nis 2021 18:34

Merhaba

'Outlookda kayıtlı imzaları kullanmak için.
'Set FSO = CreateObject("Scripting.FilesystemObject")
'Set MySignature = FSO.OpenTextFile("C:\Users\kullaniciadi\AppData\Roaming\Microsoft\Signatures\imza.htm", 1)

Dim hucreDegiskeni As String

hucreDegiskeni =Sayfaismi.Range("H23").Value

.Body = "yazılar" & hucreDegiskeni
.MySignature.readall ( İmzanın eklenmesi )

Şekilde diğer hücreleride ekleyebilirsin. İmza resim varsa resimler gelmiyor. Çözümü varsa da ben bilmiyorum. Bilen arkadaşlar yazarsa bende memnun olurum
Kullanıcı avatarı
gokhanboyaci
Yeni Başlamış
 
Kayıt: 03 Ağu 2017 22:40
Meslek: mÜDÜR
Yaş: 33
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Excel ile Outlook'u kullanarak e-mail gönderme

İleti#4)  OMERULLAH » 02 Nis 2021 19:47

Sayın gokhanboyaci,

Örnek çalışmayı dikkatle incelerseniz, yapmak istediğimi seneryoyu daha iyi anlayabilirsiniz.
Mevcut kodlar ile resimli imzalar ekleniyor.
Belirlenen veya istisna harici sayfaları tek bir pdf formatı ile mail göndermek istiyorum.
H23, H25, H31 hücrelerine yazdığım gövde metnini alt alta sırası ile yazdırmak istiyorum.

Örnek;
Sayın Muhittin bey,

İlgili faturanızı ekteki gibi bilgilerinize sunarım.

Saygılarımla.

Mevcut kod ile bu metnin tamamını tek satır olarak yazıyor.
Yani "Body" olayını gerçeği gibi yapmak istiyorum.

Saygılarımla.
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 11:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 52
İleti: 175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Excel ile Outlook'u kullanarak e-mail gönderme

İleti#5)  gokhanboyaci » 02 Nis 2021 21:23

Merhaba
Satır başı yapmak için & vbCrLf kullanabilirsiniz.

Mevcut kodunuz inceledim ve test ettim ama imza eklemiyor. Hangi bölümün imza eklediğini gösterebilirmisiniz.
Tek pdf konusunda destek olamıyorum bilgim yok
Kullanıcı avatarı
gokhanboyaci
Yeni Başlamış
 
Kayıt: 03 Ağu 2017 22:40
Meslek: mÜDÜR
Yaş: 33
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Cevap: Excel ile Outlook'u kullanarak e-mail gönderme

İleti#6)  OMERULLAH » 03 Nis 2021 07:35

gokhanboyaci yazdı:Merhaba
Satır başı yapmak için & vbCrLf kullanabilirsiniz.

Mevcut kodunuz inceledim ve test ettim ama imza eklemiyor. Hangi bölümün imza eklediğini gösterebilirmisiniz.
Tek pdf konusunda destek olamıyorum bilgim yok


Aşağıdaki kod bloğuna
.Display
.HTMLBody
ekleme yaparsanız outlooktaki imzanızı resmi ile birlikte gönderilmesini sağlayabilirsiniz.

Kod: Tümünü seç
' Prepare e-mail with PDF attachment
With OutlApp.CreateItem(0)
[b].Display[/b][color=#FF0000][/color]
' Prepare e-mail
.Subject = Title
.To = Range("H13")
.CC = Range("H17")
[b].HTMLBody[/b][color=#FF0000][/color] = Range("H23") & [b].HTMLBody[/b][color=#FF0000][/color]
.Attachments.Add PdfFile
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 11:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 52
İleti: 175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel ile Outlook'u kullanarak e-mail gönderme

İleti#7)  OMERULLAH » 07 Nis 2021 07:07

Sayın Uzman arkadaşlar,

Konu aktif olup, henüz kendi uğraşlarım neticesinde herhangi bir sonuca ulaşamadım.
Benim için çok değerli olan yardımlarınızı rica ederim.

Saygılarımla.
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 11:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 52
İleti: 175
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe