Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Cem bey bu kodları kullanınca hiç mail aktarmıyor.
Aşağıdaki hatayı verdi
15:43:54
Hata
ReferenceError: processedMessages is not defined
(anonim)
@ makrolar.gs:10
(anonim)
@ makrolar.gs:8
getEmailsToSheet
@ makrolar.gs:6
...kod, yalnızca yeni gelen e-postaları aktarır:
var processedMessages = []; // Önceden işlenmiş e-postaları saklamak için dizi
function getEmailsToSheet() {
var sheet = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet();
var threads = GmailApp.getInboxThreads(0, 10); // İlk 10 e-posta...
Cem bey merhaba
kodu denedim . Yeni mail gelmese dahi 5 dakikada bir ilk maili (aynı maili) aktarıyor. Benim istediğim mail gelince yenisini aktarsın. Eğer gelen yeni mail yoksa aynı maileri tekrardan aktarmasın
...Script’te kullanabilirsiniz. Bu, yalnızca ilk iki satırı alacak ve her yeni e-posta geldiğinde çalışacak şekilde ayarlanmıştır.
function getEmailsToSheet() {
var sheet = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet();
var threads = GmailApp.getInboxThreads(0, 10); // İlk 10 e-posta...
Hüseyin Bey Merhaba
Teşekkür ederim. Script güzel çalıştı. Bir ricam daha olacak her yeni mail geldiğinde script otomatik çalışıp maili aktarsın . Ve mümkünse mail gövdesindeki bütün mesajı değil sadece ilk iki satırı yapıştırsın.
...Bu veriler her ay sonu aylık filtrelenerek ekran görüntüsü alarak müdüriyet tarafına gönderilmekte. İlk başlarda 2 3 ekran görüntüsü ile mail atıyorken şimdi 9-10 ekran görüntüsüne ulaştı ve bu zamanlada artmaya devam etmekte.
Benden istenilen bu ekran görüntüsü ile rapor vermeyi...
Merhabalar
tablodan veri çekerek oluşturduğum bir kontrol formum var. Butona basınca 15 ayrı pdf oluşup hepsini ayrı mailde atınca mail kutusu çok çabuk doluyor .Bu 15 pdf i tek mailde göndermenin yolu var mıdır ? Mevcut kod aşağıdadır.
Private Sub CommandButton1_Click()
Dim outapp As...
...Bu tabloyu Personel adlı bir sayfada tutabilirsiniz.
Insert menüsünden Module seçeneğini tıklayarak yeni bir modül oluşturun.
Sub SendEmails()
Dim OutApp As Object
Dim OutMail As Object
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim emailSubject As String...
Üstad altın üyeliğim bitmiş tekrar yaptım ancak hala aktifleşmediği için dosya yükleyemiyorum. Acaba mail adresini verseniz oraya göndersem olur mu dosya yı
...; tüm veri işleme girmez ama hedef işlem bulunarak ve dokunmalara da gerek kalmadan başka zemine geçici olarak aktarılır ve basımdan ya da mail ile attıktan sonra da imha edilir. Bu da dosyanızda çöp veri birikmesini ve hantallaşmasını engellediği kadar bilgilerin kişisel kalmasını sağlar ve...
ekran görüntüsü ve verilerin girisi yapıldığı sayfa
Öncelikle geri dönüş yaptığınız ve tavsiyeleriniz için çok teşekkürler.
Bütün her şey sayfadan görüntü alınmasıyla başlıyor.
Bu ekranda bahsettiğim bilgilerin girildiği , görüntüleme yaptıkları ve ekran görüntüsü alıp gönderdikleri ekran...
Bunun yerine form bir tuş ile dokunulmadan da mail olarak atılabilir. xlveryhidden ayarı olan bir sayfaya girerek ekran goruntusu almanın mantığı yok bu şekilde data manipule edilebilir. Dosyanız ozel değilse bir dış servera yukleyip linli sorunuza ekleyin, ya da ;
1. Gizli Sayfanın Verilerini...
...otomatik (xlSheetVeryHidden) olarak gizlenmiş bir sheet sayfasına kayıt edilmekte. Gün sonundada Modüle girip ekran görüntüsü alarak mail atmaktalar.
Zaman geçtikçe gün içerisinde yapılan veri girişleri arttığından sürekli sürekli ekran görüntüleri almakla ve bunu mail olarak göndermekle...
Merhaba yeniden,
Sizin kodlar da ki
With Yeni_Mail
.Subject = Range("AX14").Value
.Body = Range("AX21").Value
.Attachments.Add Yol & "\" & Dosya_Adi
.Save
If Range("AX10").Value = "" Then
.To = ""
.Display
Else...
Şu şekilde kod görünümü oluştu
Sub GONDER()
Set OutApp = CreateObject("Outlook.Application") ' Yeni bir e-posta öğesi oluştur
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Mail ' Alıcı e-posta adresi
.CC = mailcc ' Alıcı ek e-posta adresleri (gözükür)
.Subject = mailkonu ' E-posta konusu...
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.