Merhabalar,
Daha önce açılmış olan konu başlığı altındaki https://www.excel.web.tr/threads/secilen-huecreleri-mail-goendermek.161860/#post-881124 gönderisinden aldığım kod ile seçilen hücreleri mail gönderebiliyorum. Ancak excel de mail gönderme butonuna her bastığımda aşağıdaki görseldeki...
...kod bloku ile ayrıca mail gönderebilirsiniz.
Ayrı Mail:
Sub Gonder()
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To = "hedef@hedefadresi.com.tr"
.CC = "bilgi"
.BCC = "gizli bilgi"...
...As Range, cellTarih As Range
Dim acilAdres As String, acilDegilAdres As String
Dim mailKonu As String, mailIcerik As String
Dim outlookApp As Object
Dim outlookMail As Object
Dim sonSatir As Long
Set ws = ThisWorkbook.Sheets("LİSTE")
sonSatir =...
...As Worksheet
Dim rngTarih As Range, cellTarih As Range
Dim rngMail As Range
Dim mailKonu As String, mailIcerik As String
Dim outlookApp As Object
Dim outlookMail As Object
Dim sonSatir As Long
Set ws = ThisWorkbook.Sheets("Sayfa1")
sonSatir =...
' E-posta gönder
With OutlookMail
.To = EmailAddress ' Alıcı e-posta adresi
.Subject = EmailSubject
.Body = EmailBody
.Display ' E-postayı göster
'.Send ' E-postayı otomatik göndermek için bu satırı kullanabilirsiniz
End With
Kırmızı ile işaretlediğim yerde kodu yazan arkadaşımız otomatik...
ayn
Merhaba aynı işlemi yaptım ama. outlook açtı tüm maillere gönder penceresi açtı ve bekkiyor. otom gönderme yapmadı tek tek gönder tuşuna basmam gerekli maalesef.
İsteğimi tam olarak açıklayamadım sanırım. Görsel destek olarak bir resim yükledim. Bu resim üzerinden anlatacak olursam;
Bir proje excel de oluşturulacak. Projenin içinde A, B, C, D ve E iş tanımları olacak. İş tanımları durumlarının her biri yönetici tarafından veri doğrulama listesinden açık...
...mail adresleri
c sütununda konunun ismi,
d sütununda açıklama ,
e sütununda içerik gelecek iekilde oluşturun.
Sub SendTopicInfoEmails()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim RecipientName As String
Dim EmailAddress As String
Dim Topic As String
Dim Description As String
Dim...
Merhabalar,
Aşağıdaki kod ile Excel' den Outlook ile veri göndermek isterken
mail gövdesine aşağıdaki metin standart (imza) olarak gelmektedir,
Ekli tabloyu Saygılarımızla yazısından' dan 1-2 satır öncesindeki aradaki boşluğa yapıştırmak istiyorum.
diğer bir deyişle mail gövdesinde...
...As Range
Set alan = Range("A11:H11", "A1:H9").SpecialCells(xlCellTypeVisible)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "mailadresi1@isim.com;mailadresi2@isim.com;"
.CC...
...Dim yol As String
Set s1 = Sheets("AKTAR")
Set S2 = Sheets("GENEL İŞYERİ")
Set S3 = Sheets("İŞYERİ İLETİŞİM")
Set S4 = Sheets("BİLGİ")
Set Outlook = CreateObject("Outlook.Application")
Set yeni = Outlook.CreateItem(0)
Application.ScreenUpdating = False
yol = Sheets("AKTAR").Range("h15")
If...
Bu kodlarda sayfaya müdahale yok, neden sayfa korumasını kaldırmaya ihtiyaç duyuluyor anlşamadım.
Set OutApp = CreateObject("Outlook.Application")
bu satırın üstüne ActiveSheet.Unprotect "Şifreniz" satırını ekelyin.
End Sub satının üstüne de kendi oluşturduğunuz kodu ekleyin.
..., AllowInsertingRows:=True, AllowDeletingRows:=True, AllowFiltering:=True"
_________________________________
Mevcut makro
Sub Mail_Selection_Outlook_Body()
ActiveSheet.Unprotect
' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2010
Dim rng As Range...
...korumaya aldığımda çalışmıyor. Korumayı kaldırın diyor. Korumalı şekilde nasıl yapabilirim.
Şimdiden teşekkürler
Sub Mail_Selection_Outlook_Body()
' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2010
Dim rng As Range
Dim OutApp As Object...
Merhaba,
Office 365'de Araştır alanı bir dosyadan başka bir dosyaya veri kopyaladıktan sonra sürekli kendi kendine açılıyor, açılan ekranın görselini ekte paylaştım. Kapattıktan sonra excel'de bir hücreye tıklayınca yine açılıyor.
Daha önce karşılaşan oldu mu, çözümü bilen varsa yardımcı...
web mail ile Outlook.com ayarlara girin Posta oluştur bölümünde yeni imza tanımlayıp oraya resminizi uygun boyutta yapıştırın kaydedin.
Bu şekilde görünmesi lazım.
Yeni iletiler için imza.
Karşı taraf gönderenin resimlerini göster ya da gösterme seçeneğini aktif etmemiş ise kişi bu resmi görme...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.