2. MEsajdaki kodları denedim gayet güzel çalışıyor peki buna mail gönder butonuna basıldıktan sonra çalışma sayfasını otomatik kaydedip outloğa eklemesini sağlayabilirmiyiz böyle bir imkan varmıdır?
2 nolu mesajdaki kodları dosyanın içine ekleyin, ilgili referansı da seçin ve kodu çalıştırın. Çalıştığınız dosyayı mail olarak gönderiyor. Mail atması için kod içindeki kısma( strTo = "jon.smith@gmail.com") kendi mailinizi yazıp deneme yapın.
Arkadaşlar ekteki tabloyu email gönder butonuna basıldığında outlook açılmasını ve outloğada otomatik ek olarak eklenmesini sağlayabilirmiyiz yada başka türlü nasıl yapılabilir?
Merhaba,
Şirket dışına gönderilen maillerle ilgili bir kısıtlama yapmak istiyoruz, birkaç yöntem var bu konuda incelediğimiz ama başkaları nasıl yapılıyor bilmek / değerlendirmek istiyoruz.
Bu konuyla ilgili alınana önlemler hakkında tecrübeleriniz paylaşabilir misiniz?
...benzer örnekler vardır.
Yapmaya çalıştığım,
mevcut bir kuralım var, adına "Oteller" diyelim, bu kuralın içerisinde domain adına göre gelen mailleri belli bir klasöre kopyalama yapıyor.
ama kuralın içerisinde olmayan da birçok mail alıyorum ve tek tek kuralı güncellemek zaman alıyor.
Bir...
Forumda da benzer konular var ama sanırım tam sorunuzun karşılığı olan aşağıdaki linki inceleyebilirsiniz.
https://stackoverflow.com/questions/60330483/vba-to-search-and-reply-in-outlook-with-specific-criteria
...kaldırma yolu ile listenin gorunumunde yer tasarrufu ve gorsel duzeni de en sonunda saglamaktır. Bu şekilde duzenlenecek anadosyada telefon mail vs ekleri de daha sonra fiilen teyid alarak elde eklenecektir, bu kısım ise personel tarafından belli bir programa gore duzenlenecek ve hareketli...
...Option Explicit
Sub Mail_Gonder()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Toplu Email")
Dim i As Integer
Dim OA As Object
Dim msg As Object
Set OA = CreateObject("outlook.application")
Dim last_row As Integer
last_row = sh.Range("D" & Application.Rows.Count).End(xlUp).Row
For i...
Linklerde bazı bilgiler var.
https://www.excel.web.tr/threads/mailin-hangi-adresten-goenderilecegini-belirlemek.193893/
https://www.excel.web.tr/threads/mail-goevdesine-tablodan-ayri-ayri-boeluemleri-alma.155588/
Merhaba arkadaşlar aşağıdaki kodu kullanarak toplu mail gönderimi yapıyorum. Aşağıdaki koda Outlook’ta tanımlı olan kimden mail adresine göre gönderim yapmak mümkün müdür?
Sub MAIL_GONDER()
Dim Outlook_App As Object
Dim Outlook_Mail As Object
Dim SigString As String
Dim...
EXCEl DEKİ BİLGİLERİMİ ad ,yaş ve mail olan hücrelerim var ben bunları ınsert ınto komutu ile mysql baglamam lazım sizce buna uygun formul nasıl olamalıdır.
INSERT INTO(AD, YAŞ,MAİL ) VALUES (A1,B1,C1) İÇİNDEKİ FÖRMÜLLER OLACAK .
...tam olarak şöyle örneğin ,
A alıcısı yükü İzmir / Bornova'da
B alıcısı yükü İstanbul/Beylikdüzü'nde
Gün içinde bana bu şekilde bir bilgi maili atılıyor listedeki bütün bilgileri ilgili maillere yükün konumu olarak iletiyorum. Fakat bu bilgiler 300 civarı olduğu için tek tek çok uzun...
...eklediğimde imzayı istediğim gibi ekliyor.
Tablo olarak belirlediğim range aralığındaki renk, font, kenarlık gibi biçimlendirdiğim tabloyu mail gövdesinin en sonuna ekliyor. Ben Sayın XYZ, 'den sonra tabloyu eklemesini ve sonra da imzanın gelmesini istiyorum.
newEmail.htmlbody = "Sayın...
Merhaba arkadaşlar,
Excel üzerinden belirli bir aralıktaki tabloyu birden fazla mail adresine gönderiyorum. Bu gönderim üzerinde tüm istediklerimi yapabildim fakat bazen bu mailler diğer kullanıcılar tarafından da atılabiliyor. Bu sebeple kimin mail adresinden gönderiliyorsa o kişinin kayıtlı...
...dosyada da değil başka bir excelde makro yazarak ekran görüntüsü almak mümkün mü ?
Yapmak istediğim resimde açıklamaya çalıştığım üzere ;
günlerin ve haftaların yazılı olduğu sütunlardan istediğim günü seçerek B sütununa dayalı olarak o excel dosyasının ekran görüntüsünü mail olarak atmak.
...WB.Close True, File_Name
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Rem Buraya mail gönderme kodlarınızı ekleyebilirsiniz. Ayrıca aşağıdaki şekilde maile ek olarak dosyayı ekleyebilirsiniz.
Rem .Attachments.Add (File_Name)
End Sub
...ile özet tablo oluşturdum. Bu özet tabloda, Buton 1 ile seçili hücre aralığını farklı kaydet, 2. buton ile seçili hücre aralığını (56R x 10C) maile excel formatında ek yaparak H1 hücresinde yazan mail adresine göndermesini istiyorum. Sitede farklı kodları deneyerek farklı kaydet kısmını...
Sub ping_at()
Dim sonuc As Boolean
Dim OutlookApp As Outlook.Application
Dim OutlookMail As Outlook.MailItem
Set OutlookApp = New Outlook.Application
Dim mail_text, mail_text_baslik As String
lastrow = Worksheets("data").Cells(Rows.Count, "A").End(xlUp).Row...
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.