Sorgu için arama sonuçları: Outlook+Cells

Merhaba aşağıdaki mail de link vermek istiyorum ama başaramadım aşağıdaki koda ilaveten ARŞİV sayfasındaki K sütunun son hücresindeki linki alacak mail'e ekleyecek linke dosyaya ulaşmak için buraya tıklayın diyecek bir ek ilaveye ihtiyacım var Dim oOutlookApp As Object, oItem As Object, olInsp...

Merhabalar, excel'de belirlenen hücreleri vba makroyla mail olarak gönderme kodunu yazdım. Bu kodda A7 ile N25 sütunları arasındaki satır ve sütunlar gönderiliyor. Buna ek olarak A1 ve N4 arasındaki kodları da eklemek istiyorum yani 2 farklı hücreyi birleştirip o şekilde mail göndermek...

Hocam Teşekkürler. ".HTMLBody = RangetoHTML(alan1) & "<br><br>" & RangetoHTML(alan2)" olarak revize edildi. "Set alan2 = Range("A1:K50") Set alan1 = Range("P3:U16") " kodları değiştirilerek dosyayı reviz ettim. Ellerinize sağlık. Syg, Syg,

Deneyiniz. Mail ekranında gelen yazıları karşılaştırarak değiştireceğiniz yerleri kendinize göre uyarlarsınız. Sub mail_gonder() Dim wrdEdit Dim alan1 As Range, alan2 As Range Set alan1 = Range("A1:K50") Set alan2 = Range("P3:U16") Set OutApp =...

Hocam Merhaba, Yönlendirmeniz ve aramalarım neticesinde dosyam için az önce bir kod ekledim. Her şey dosdoğru çalışıyor. Sadece mail içeriğine eklenen Range("A1:K50") alanın üzerine 1- Araya boşluk vererek "P13:U16" alanında oluşturacağım ve mail için hazırlamış olduğum bir başlık yazısı...

Send komutunu bilerek koymamıştık. Belki ön izleme yapmak gerekir diye. Ama şimdi koyalım. .Send 'Bu satır gönderir. İsterseniz yine pasif yaparsınız. Bir de gönderilen satırı başlıksız almışız. Başlık konursa daha anlaşılır olur gibi. Şimdiki kodda başlık da ekleniyor. Sub...

Arşiv sayfasındaki son satırı mail atmak için olan kodlar şöyle: Sub SeciliAlaniMailAtmak() 'Exceldeki seçili bir alanı mail gövdesine yapıştırıp mail atar.. Dim oOutlookApp As Object Dim oItem As Object Dim olInsp As Object Dim wdDoc As Object Dim oRng As Object Dim xlRng As Range Set...

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(...

Kaynak: Mail Range/Selection in the body of the mail (rondebruin.nl) Sub Mail_Selection_Range_Outlook_Body() 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Don't forget to copy the function RangetoHTML in the module. 'Working in Excel 2000-2016 Dim rng As Range...

Merhaba, Buçalışma kitabı kod sayfasına ekleyiniz. Dosyanız açıldığında şarta uyanlar mail olarak iletilir. Mail sütunu olan U sütunu sabit U4 olarak sabit düşünmedim, her satırın karşısında mail adresi var diye düşündüm. Eğer U4 sabitse; e.To = S1.Cells(i, "U").Value yerine e.To =...

Bu da denenmiş hali. Denerken Atachment pasif ettim. Sizde dosyalar hazırdır zaten. Çalışacaktır. Sub Eposta2() Dim bg As Worksheet, i As Integer, konu As String, Gövde As String, Dosya As String, adres As String, durum As String, badres As String Dim MailObj As Object, MailYeni As Object...

MailTekrar makronuzdaki karışık durumları sildim. Ne zaman çağırıp ne zaman çalıştırıyorsunuz bilemedim. Ancak Mail Tekrar makronuzu tetiklediğiniz an istediğiniz satırlardaki mail gönderimi gerçekleşecektir. Sub MailTekrar() Call Eposta End Sub Sub Eposta() Dim bg As Worksheet, i As...

Merhabalar bu kodda 29 tane e posta satırı var. 29 satırdan biri boş olduğunda hata veriyor ve göndermiyor. Ben sadece dolu olan e-posta satırlarını göndermesini istiyorum. Yardımcı olur musunuz ? Sub MailTekrar() Set bg = Worksheets("BOLGE_KODU") sıra = 2 While bg.Cells(sıra, 5) <> 0 sıra...

Butona tıkladığımda ".To = adres" satırında hata veriyor. Yardımcı olursanız çok sevinirim. Sub Eposta() Set bg = Worksheets("BOLGE") Dim app As Object Dim CurrFile As String Set app = CreateObject("Outlook.Application") Set posta = app.CreateItem(olMailItem) sıra = 2 bolgead =...

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...

Selamlar.. belirli saatte mail atmasını istediğim bir Excel tablom var.. 2 isteğim olacaktı * aşağıdaki sorguda belirtilen saatte gönderim yapmıyor (Mail ve Excel açık olmasına rağmen..) * Belirtilen Exceli sadece formül'süz olarak almasını istemekteyim..(SQL veri tabanı bağlantısı...

Ömer Bey Merhaba,,, Sütunlarda mevcut olan "Durum ve Hatırlatma" ne anlama geliyor.