yapılıyor hatta mail adresini excel üzerinden bile yaza bilirsin. vakti zamamında yaptığım bir macro. Dim OutApp As Outlook. Application Dim NewMail As Outlook. MailItem Set OutApp = New Outlook. Application Set NewMail = CreateItem With NewMail. To = Cells(29, 4) //hücredeki mail adresi d sütunu 29. satırdaki mail adresi '. Subject = Cells(1, 4) . Subject = "konu" //burası konu başlığı hücrelerden bilgi alıpta yapa bilirsin. . Body = "mail metni" // burası mail içeriği hücrelerden veri alıp bir bütün olarak yapabilirsin. '. Attachments. Add "C:\Asmm\Test. xls" // ek için kullanılıyor. '. SendUsingAccount = OutApp. Session. Accounts. Item //kullanıcı mailli. burada outlooktan hangi kullanıcı seçiliyse o kullanıcıdan mail gnderiliyor. . Save. Send End With Set NewMail = Nothing Set OutApp = Nothing boş

http://www.megafileupload.com/tamV/deneme. xlsm a1:b5 aralığını kendine gre düzenleyebilirsin bugax tarafından 02/Oca/17 16:52 tarihinde düzenlenmiştir

http://www.megafileupload.com/tamV/deneme. xlsm a1:b5 aralığını kendine gre düzenleyebilirsin Hocam çok teşekkür ederim. Nasıl yaptın? Bize de anlatabilir misin? Oksijen, belki de yavaş yavaş ldüren bir zehirdir...

up :) Oksijen, belki de yavaş yavaş ldüren bir zehirdir...

dosyanın çalışan halını yükledim. http://s3. dosya. tc/server10/69r1ov/mailGonder. rar.html hatta kodunuda ekleyim. Sub mailGonder1 'Tools references microsoft outlook 14.0 object library eklemeyi unutma Dim OutApp As Outlook. Application Dim NewMail As Outlook. MailItem Set OutApp = New Outlook. Application Set NewMail = CreateItem With NewMail. To = Cells(1, 2) 'hücredeki mail adresi b sütunu 1. satırdaki mail adresi. Subject = Cells(2, 2) 'hücredki mail konu başlığı b sütunu 2 satırdaki hücre içeriği ' . Subject = "konu" 'burası konu başlığı hücrelerden bilgi alıpta yapa bilirsin. . Body = Cells(3, 2) ' burası mail içeriği b sütunu 3 satırdaki hücre içeriği '. Attachments. Add "C:\Asmm\Test. xls" // ek için kullanılıyor. '. SendUsingAccount = OutApp. Session. Accounts. Item //kullanıcı mailli. burada outlooktan hangi kullanıcı seçiliyse o kullanıcıdan mail gnderiliyor. . Save. Send End With Set NewMail = Nothing Set OutApp = NothingEnd Sub boş

Merhaba arkadaşlar. Çalıştığım firmada ihracat operasyondaki arkadaşlara hız kazanmaları için bir excel dkümanı hazırladım. Kantar'dan gelen detayları aşağıdaki turuncu ekrandaki ilgili yerlere dolduruyorlar ve YEŞİL ekranda otomatik metin oluşuyor. Burada maksat turuncu ekrandaki veriler girildiğinde YEŞİL ekranda kendiliğinden oluşan alanları mail atmak. Aşağıdaki gibi: Burada makro ile ilgili sorum şu. Buna bir makro kod ile GNDER butonu oluşturabilir miyiz? Excel ekranında GNDER tuşuna basığımızda OUTLOOK programında YENİ MAİL ekranı açılacak, exceldeki KONU alanı OUTLOOK'ta KONU alanına, MAİL içeriği OUTLOOK'ta mail içeriğine otomatik kopyalayacak. Bize sadece mail adresi girme işlemi kalacak. Bunu sağlayabilir miyiz? Şu an şirketteki bilgi işlem engeli nedeniyle excel dkümanını ekleyemedim. Yardımcı olmak isteyen arkadaşlara paylaşırlarsa mail olarak gndermek istiyorum Yardımlarınızı rica ederim Oksijen, belki de yavaş yavaş ldüren bir zehirdir...

Bende bir sorundan dolayı bir konu açacaktım da buradan sorsam sanırım sorunu çzebilirim. konu sahibi arkadaş idare et ;) konu da yukarı. resimde anlattığım her hangi bir excel dosyasını açtığımda sürekli güvenlik, makro uyarısını vermesini nasıl çzerim? İnsanları sevin, saygınızı gsterin ama kesinlikle insanlara acımayın. Çünkü acıdığınız anda acınacak duruma düşüyorsunuz

güzel konu bakalım bilen biri çıkacak mı

yapılıyor hatta mail adresini excel üzerinden bile yaza bilirsin. vakti zamamında yaptığım bir macro. Dim OutApp As Outlook. Application Dim NewMail As Outlook. MailItem Set OutApp = New Outlook. Application Set NewMail = CreateItem With NewMail. To = Cells(29, 4) //hücredeki mail adresi d sütunu 29. satırdaki mail adresi '. Subject = Cells(1, 4) . Subject = "konu" //burası konu başlığı hücrelerden bilgi alıpta yapa bilirsin. . Body = "mail metni" // burası mail içeriği hücrelerden veri alıp bir bütün olarak yapabilirsin. '. Attachments. Add "C:\Asmm\Test. xls" // ek için kullanılıyor. '. SendUsingAccount = OutApp. Session. Accounts. Item //kullanıcı mailli. burada outlooktan hangi kullanıcı seçiliyse o kullanıcıdan mail gnderiliyor. . Save. Send End With Set NewMail = Nothing Set OutApp = Nothing Hocam teşekkür ederim. Sana zahmet biraz detay verebilir misin? Nasıl kullanacağım bu kodu? Oksijen, belki de yavaş yavaş ldüren bir zehirdir...