Sorgu için arama sonuçları: outlook+font+style

Merhabalar Kodları kendi sayfa isimlerine göre revize etmelisin Excel Çalışma Kitabı olarak mail gönderir. Sub AktifSayfaMailGonder() Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim...

Merhabalar, Aşağıdaki kod gayet güzel çalışıyor. Ancak, mail attıkça Sheets("mail_list").Range("B2:B10") satırlarında yer alan 2 mail adresini önce 1' er kez sonra 2' şer kez sonra 3' er kez diye devam edecek şekilde kime kısmına ekliyor. Yardım rica ediyorum. Teşekkürler. Dim Yol As String...

Bu şekilde hata verdi [/code]

Deneyiniz. Option Explicit Sub Created_Mail() Dim S1 As Worksheet, My_Data As Range, Last_Row As Long Dim Outlook_App As Object, New_Mail As Object, My_Message As String Set S1 = Sheets("Sheet1") On Error Resume Next Set Outlook_App = GetObject(...

Sub ARIZA_Genderme_Mail() ActiveSheet.Pprotect "knk963" Dim Yol As String, Yedek As String, Dosya As String Dim Uygulama As Object, Yeni_Mail As Object Dim FSO As Object, Sayfa As Worksheet Dim S1 As Worksheet, Onay As Byte, Mesaj As String On Error Resume Next Set...

Hocam öncelikle teşekkürler ancak normal size göndermiş olduğum ve o kodda size aitti sanırım üzerinde değişiklikler yaparak belli bir yerden ismi aldırarak dosya ismi olarak kaydettirdiğim kodlar filan vardı onlar iptal olmuş sanırım. Benim verilerim dosyada bulunan 1 numaralı sayfada ve ben...

Deneyiniz. Option Explicit Sub Send_File_Mail() Dim Yol As String, Yedek As String, Dosya As String Dim Uygulama As Object, Yeni_Mail As Object Dim FSO As Object, Sayfa As Worksheet Dim S1 As Worksheet, Onay As Byte, Mesaj As String On Error Resume Next Set...

Arkadaşlar aşağıdaki macro ile dosyamı pdf olarak sorunsuz şekilde mail gönderiyorum ancak benim istediğim dosyanın orjinal formatında ya da herhangi bir excel formatında göndermesi. Bunu aşaşıdaki macro'yu ne şekilde değiştirerek yapabilirim? Birde formüllü olarak veriler var dosyamda onları da...

Deneyiniz. Option Explicit Sub SAYFALARI_AYRI_AYRI_PDF_KAYDET_MAIL_GONDER() Dim Yol As String, Dosya_Adi As String, Dosya As Variant, Adres As String Dim Uygulama As Object, Yeni_Mail As Object, Veri As Range, Say As Byte Dim Sayfa As Worksheet, S1 As Worksheet, Onay As Byte...

Deneyiniz. Option Explicit Sub EXCEL_KAYDET_MAIL_GONDER() Dim Yol As String, Dosya_Adi As String, Dosya_Uzantisi As String Dim Uygulama As Object, Yeni_Mail As Object, Veri As Range, Say As Byte Dim Sayfa As Worksheet, S1 As Worksheet, Onay As Byte, Mesaj As String, Adres As...

Sayfa3 dediğiniz sanırım "ARA VERİLER" isimli sayfa oluyor. Deneyiniz. Option Explicit Sub Filtrelenmiş_Verileri_Mail_Gonder() Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet Dim Uygulama As Object, Yeni_Mail As Object Dim Veri As Variant, X As Long, Son As Long Dim...

Deneyiniz. Kaydedilen PDF dosyası mail gönderildikten sonra silinmektedir. Eğer silinmesini istemiyorsanız aşağıdaki satırı kaldırabilirsiniz. Kill Yol & "\" & Dosya_Adi Option Explicit Sub PDF_KAYDET_MAIL_GONDER() Dim Yol As String, Dosya_Adi As String, Dosya_Uzantisi As String Dim...

Mail gönderimi için sadece bu kodu kullanabilirsiniz. Diğerlerine ihtiyacınız kalmamış oldu. Kodun içindeki '.Send satırının başındaki tek tırnağı kaldırırsanız mailler direkt olarak gönderilir. Ben oluşan mailleri görebilmeniz için pasif bıraktım. Option Explicit Sub...

Deneyiniz. Kodun içinde bazı alanları kendi isteğinize göre revize etmelisiniz. Eğer otomatik gönderim istiyorsanız kodun içinde '.Send yazan satırın başındaki tek tırnak sembolünü siliniz. Option Explicit Sub Filtrelenmiş_Verileri_Mail_Gonder() Dim S1 As Worksheet, Uygulama As Object...

Teşekkür ederim Korhan bey, her filtre için yeni bir modul açıp bu kodu değiştirmem gerekiyor sanırım ?

Kodun içine açıklamalar yazdım. Uygun şekilde tanımlamalar yaparak kullanabilirsiniz. Option Explicit Sub Filtrelenmiş_Verileri_Mail_Gonder() Dim S1 As Worksheet, Uygulama As Object, Yeni_Mail As Object Dim Dosya_Adi As String, Mesaj As String Set S1 = Sheets("Sheet1")...

Kodu bu şekilde ekledim ama sanırım yapamadım, yardımcı olmanız mümkün mü ? sonsatir = Cells(Rows.Count, "C").End(3).Row For i = 2 To sonsatir Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .Subject = Cells(i...

Bütün adreslere tek bir mail gidecek demişsiniz. Aşağıdaki kod bu şekilde gönderim yapar. Option Explicit Dim Yol As String, Dosya_Adi As String Dim Uygulama As Object, Yeni_Mail As Object, Veri As Range Dim S1 As Worksheet, Onay As Byte, Mesaj As String, Adres As String Sub...

Mailler her mail adresi için ayrı ayrımı gönderilecek? Yoksa tümüne toplu olarak tek bir mailde gönderilse olur mu? Tek tek gönderecek şekilde kurguladığım kodları deneyebilirsiniz. Gönderim adedi çok olacağı için her mail arasına 5 saniye bekleme süresi ekledim. Daha önce başka bir başlıkta...

Teşekkür ederim Korhan Bey deneyeceğim. Peki diğer durumlar ile ilgili bir görüşünüz var mi?