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

Merhaba, linkinde bulduğum maili paylaşıyorum. Kendinize uyarlayınız. Sub SendEmailfromOutlook() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Dim Path As String Path = Application.ActiveWorkbook.Path Set OutApp = CreateObject("Outlook.Application")...

Merhabalar, belli bir aralığı rng olarak atayıp mail bodysine ekliyorum ama body kısmına logo da eklemek istiyorum. logo dosya içinde de olabilir masaüstünde bir klasörede de olabilir. Zaman ayırdığınız için şimdiden teşekkür ederim. kullandığım kodlar Sub tek_mail() 'For Tips see...

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

Mail gönderme ile ilgili yapıyı paylaşıyorum. Gerisini kendinizin halletmesi gerekiyor. Dosyanıza boş bir sayfa ekleyin. (Adı Mail_Settings olsun) Bu sayfada A ve B sütunlarını görseldeki gibi ayarlayın. B sütununa mail adreslerini ve konusunu yazıp kullanabilirsiniz. Sonrasında aşağıdaki...

Forumu araştırdım fakat outlook web ile ilgili bilgi bulamadım. Excelden seçili verileri outlook uygulamasıyla mail olarak gönderebilen makrolora ulaşabildim. Hatta birisini test ettim sorunsuz çalışıyor. Kodlar aşağıda. (Kimden alıntı yaptığımı hatırlamıyorum. aşağıdaki kodlar için o kişiye de...

Arkadaşlar merhaba üretimden malzeme siparişlerini mail ile almak için bir excel sayfası yapmak istiyorum. Malzeme sayısı birden fazla olduğu durumlarda ne gibi bir kod kullanabilirim yardımcı olabilir misiniz? Normalde bu kodları başka bir formda üretimdeki arızaları arşivlemek için...

Merhabalar arkadaşlar aşağıdaki kod ile çıktı aldığım buton ile aynı zamanda mail göndermek istiyorum ancak çıktıyı veriyor, maili göndermiyor. Sizden ricam Nerde hata yapıyorum bi bakabilir misiniz. Yardımlarınız için teşekkür ederim. Sub MailGonder() Dim OutApp As Object, Outmail As Object...

Çok teşekkür ederim çalıştı.

Sub Hatalı_imalat() SonSatır = Sheets("ARŞİV").Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1 Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .to = "mail" .Cc = "mail"...

Merhaba Ustalar; Aşağıdaki kodlar ile makro ile otomatik rapor atıyorum. Makro kodları sayesinde mail eklerini ve resimlerini otomatik kopyalıyor. Ancak aşağıdaki resimde görüldüğü gibi resimler X olarak cıkıyor html bölümüne ekleyemediği için EK' olarak ekliyor. Outlook365 geçtikten sonra...

Eklenti dosyası: https://www.dosyaupload.com/bhxD Çalıştırılacak makro "sub mailci" Run ("maileklenti.xla!mailci") İstediğiniz dosyada (sütunları mail gönderilecek dosya; aktif iken) modüle ekleyerek kullanabilirsiniz. Modul kodları Public dc As Object Public v As Worksheet, kime As String...

Merhaba Ustalar; Aşağıdaki kodlar ile makro ile otomatik rapor atıyorum. Makro kodları sayesinde mail eklerini ve resimlerini otomatik kopyalıyor. Ancak aşağıdaki resimde görüldüğü gibi resimler X olarak cıkıyor ve EK'e ekliyor. Ancak mail uzantım aynı olan örnek excel@excelweb.com dan...

Sayın @PLİNT dosya üzerinde çok uğraştım ama hata veriyor. kendi kodlarımı da revize ettim textboxları gücelledim sizin kodlarla birleştirince olmadı. Userform açılmıyor Olmayınca sabah bir çok yeri formda sildim. yeniden textbox yaptım ama hala taha mesajı verince dosyayı size göndermenin...

Deneyiniz.. Option Explicit Private Sub UserForm_Initialize() Dim Yol, DosyaYolu, Satir Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator & "Numune Sonuclari" DosyaYolu = Dir(CreateObject("Scripting.FileSystemObject").GetFolder(Yol) &...

Merhaba; Aşağıdaki kodu çalıştırdığımda resimdeki hata ile karşılaşıyorum. Microsoft Object Library x.x referansi tool menusunden seçmeme rağmen hata ile karşılaşıyorum. Option Explicit Sub Create_Task() Dim olApp As Outlook.Application Dim olTask As Outlook.TaskItem Dim X As Long...

Merhaba Mutabakat için excel ile outlook üzerinden mektup gönderiyordum. Bilgi işlem de çalışan eski arkadaş makroyu oluşturmuştu. Bilgisayarım yenilendiğinde birşeyler ters gitmeye başladı. E posta doğru gidiyor ancak "Konu" alanı boş kalıyor. Bunun nedeni ve çözümü için yardımınızı rica...

Üstad teşekkür ederim. Bu kod desteğiniz çok iyi oldu. Kaydet ekranı çıkıyor. Ayrıca onay vermeden kaydetmesi sağlanabiliyor mu

Merhaba, Bu kodlarla toplantı oluşturuyorum, deneyebilirsiniz. Sub Toplanti_Olustur() Dim Outlook As Object On Error Resume Next Set Outlook = CreateObject("Outlook.Application") Dim Item As AppointmentItem Set Item = Outlook.CreateItem(olAppointmentItem) With Item...

Merhaba Arkadaşlar, Aşağıdaki kod ile Excelden Outlook Reminder'e veri gönderiliyor. İlgilenenlerin yararlanabilir. Reminder olarak güzel çalışıyor ama Takvime kaydetmiyor. Takvime kaydetmesi için kodu nasıl revize etmek lazım ? Private Sub Worksheet_Change(ByVal Target As Range) 'GTU WORK If...

Merhaba. Aşağıdaki gibi yapabilirsiniz. Sub YuvarlatılmışDikdörtgen2_Tıkla() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Dim evn As Object Dim x As String x = "\\bsh.corp.bshg.com\fredirect\TR\IST\AyU\Desktop\" & Cells(6, "b") & " " & Cells(7...