şöyle bir teknoloji var mı

[fresia]

kurum adı - mail adresi şeklinde bir listem var

5 dk aralıklarla mail atıcam fakat mail başlığında xxxxx (sabit kalcak) - kurum adı (değişecek) değişiklik olacak

bunun makrosu var mıdır

 

[sanssizsansli]

Evet, böyle bir işlem için Outlook VBA Makrosu veya Python ile otomatik e-posta gönderme çözümleri mevcut. Eğer Outlook kullanıyorsan, VBA ile bir makro yazarak bunu yapabilirsin. Python kullanıyorsan, smtplib ve pandas gibi kütüphaneleri kullanarak bir otomasyon oluşturabilirsin.

Outlook VBA Makrosu Çözümü:

Eğer Outlook kullanıyorsan, aşağıdaki VBA kodu işini görür:

Excel'de Liste Hazırla:

A sütunu: Kurum Adı

B sütunu: Mail Adresi

Outlook VBA'ya Git:

Outlook’ta Alt + F11 tuşlarına basarak VBA Editörünü aç.

Insert > Module diyerek yeni bir modül oluştur.

Aşağıdaki VBA Kodunu Yapıştır:

vba

KopyalaDüzenle

Sub TopluMailGonder() Dim olApp As Object Dim olMail As Object Dim xlApp As Object Dim xlWorkbook As Object Dim xlSheet As Object Dim i As Integer ' Outlook Uygulamasını Aç Set olApp = CreateObject("Outlook.Application") ' Excel Dosyasını Aç Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False Set xlWorkbook = xlApp.Workbooks.Open("C:\DosyaYolu\liste.xlsx") ' Dosya yolunu değiştir Set xlSheet = xlWorkbook.Sheets(1) ' Satırları Dolaş ve Mail Gönder i = 2 ' 2. satırdan başlar (başlık satırı yoksa 1 olarak değiştir) Do While xlSheet.Cells(i, 1).Value <> "" Set olMail = olApp.CreateItem(0) With olMail .To = xlSheet.Cells(i, 2).Value ' Mail adresi .Subject = "xxxxx - " & xlSheet.Cells(i, 1).Value ' Konu başlığı .Body = "Merhaba, bu bir test mailidir." ' Mail içeriği '.Attachments.Add ("C:\DosyaYolu\Ek.pdf") ' Eğer ek göndermek istersen .Send ' Maili Gönder End With Set olMail = Nothing i = i + 1 Application.Wait (Now + TimeValue("00:05:00")) ' 5 dakika beklet Loop ' Temizlik xlWorkbook.Close False xlApp.Quit Set xlSheet = Nothing Set xlWorkbook = Nothing Set xlApp = Nothing Set olApp = Nothing MsgBox "Mailler başarıyla gönderildi!", vbInformation End Sub

Bu makro Excel'deki kurum adı ve e-posta adreslerini alır, her 5 dakikada bir farklı bir kuruma mail atar.

Python ile SMTP Kullanarak Çözüm:

Eğer Python kullanıyorsan, aşağıdaki kodu çalıştırarak e-postaları gönderebilirsin:

Gereksinimler:

Bir Gmail, Outlook veya özel mail sunucusu SMTP ayarlarını girmen gerekiyor.

Excel dosyanı CSV formatında kaydetmelisin.

Python Kodu:

python

KopyalaDüzenle

import smtplib import pandas as pd import time from email.mime.text import MIMEText from email.mime.multipart import MIMEMultipart # Mail sunucusu bilgileri SMTP_SERVER = "smtp.gmail.com" # Örneğin Gmail kullanıyorsan SMTP_PORT = 587 EMAIL_USER = "[email protected]" EMAIL_PASS = "sifre" # Eğer Gmail kullanıyorsan, 'App Password' oluşturmalısın! # Excel veya CSV Dosyasını Oku df = pd.read_csv("C:/DosyaYolu/liste.csv") # Dosya yolunu değiştir # Mail Gönderme Fonksiyonu def send_email(to_email, kurum_adi): subject = f"xxxxx - {kurum_adi}" body = f"Merhaba {kurum_adi},\n\nBu bir test mailidir." msg = MIMEMultipart() msg["From"] = EMAIL_USER msg["To"] = to_email msg["Subject"] = subject msg.attach(MIMEText(body, "plain")) try: server = smtplib.SMTP(SMTP_SERVER, SMTP_PORT) server.starttls() server.login(EMAIL_USER, EMAIL_PASS) server.sendmail(EMAIL_USER, to_email, msg.as_string()) server.quit() print(f"Mail gönderildi: {to_email} - {kurum_adi}") except Exception as e: print(f"Hata oluştu: {e}") # 5 dakikada bir mail gönderme for index, row in df.iterrows(): send_email(row["mail_adresi"], row["kurum_adi"]) time.sleep(300) # 5 dakika bekle print("Tüm mailler gönderildi!")

Özetle:

VBA ile Outlook üzerinden mail atabilirsin (Outlook'un açık olması lazım).

Python ile SMTP üzerinden mail atabilirsin (Herhangi bir mail sunucusu ile çalışır).

Hangi yöntemi kullanacağını söyle, ona göre daha fazla detay verebilirim!

[Bone]

ChatGPT güzel şey.

[fresia]

yapay zekadan yeni bi şey istedim yapamadı

şirket adlarını listeledim, web sayfalarını tara email adreslerini yanına yaz

git sen uğraş diyor biraz zaman alabilirmiş

[GERGE]

At şirket adlarını, deneyeyim.

[Esnaf]

çok fazla attıysan üşeniyor azar azar dene yapar, benzer bir şey yapmıştım 3-4 ay önce ama belli bir yerden sonra [email protected] diye kendisi sallamıştı asdg

[razzRaziel]

sitemden iletisim mailini alip sonra da spamleyen sen misin la

[fresia]

GERGE, 19.02.2025 13:46 tarihinde dedi ki:

At şirket adlarını, deneyeyim.

24/7 Jet, Inc.

26 NORTH AVIATION INC

3D Jets LLC

4 W Air, LLC

40 Mile Air, Ltd.

5 Star Grand Canyon Helicopter Tours, LLC

5 State Helicopters, Inc.

5KTA152N LLC

A and P Helicopters, Inc.

A B FLIGHT SERVICES INC

A.L.E.R.T. Kalispell Regional Medical Center Inc.

A-1 AIR CARRIERS, LLC.

AB Jets, LLC

Aberdeen Flying Service INC

Abilene Aero Inc.

Above All Aviation, Inc.

Above It All, Inc.

ABOVE THE HUB LLC

AC Aviation Services, LLC.

[fresia]

Esnaf, 19.02.2025 14:13 tarihinde dedi ki:

çok fazla attıysan üşeniyor azar azar dene yapar, benzer bir şey yapmıştım 3-4 ay önce ama belli bir yerden sonra [email protected] diye kendisi sallamıştı asdg

1800 tane filandı ama excelde yüklemiştim sdfsd

 

üstteki gibi yapınca oldu

Şubat 19, 2025 fresia tarafından düzenlendi

[GERGE]

Bunu yaptı: https://rentry.org/ws984a6m

[fresia]

aynı şeyi excel dosyasında yapabilir mi ama 1800 tane satır var, b sutununa emailleri ekleyecek

https://dosya.co/q1a9kzta6rzt/Part_135_Operators_and_Aircraft_4.xlsx.html
 

Şubat 20, 2025 fresia tarafından düzenlendi

[GERGE]

Excel editleme yapamıyorlar. Parça parça bölüp vermen lazım. Kagi.com benim kullandığım.

50-60 tane kopyalayıp sordum, reddetti hepsi. Azar azar sorunca yapıyorlar.