Sorgu için arama sonuçları: outlook

Sayın hocam ancak deneme imkanım oldu. Sub SendEmails() satırında hata veriyor. Sarı sütunda kalıyor. Outlook yeni sürüm mevcut ondan olabilir mi? Sub or function not defined hatası alıyorum. İşletim sistemim win 11.

...emailSubject As String Dim emailBody As String Dim emailTo As String Dim pdfPath As String Set OutApp = CreateObject("Outlook.Application") Set ws = ThisWorkbook.Sheets("Personel") l lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row For i = 2 To...

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...

...oluştur tempFilePath = Environ("TEMP") & "\ExportedData.xlsx" ' Verileri yeni bir dosyaya kaydet ThisWorkbook.SaveCopyAs tempFilePath ' Outlook nesnelerini oluştur Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) ' E-posta ayarlarını yap With OutMail .To...

Ş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...

Merhaba, Yukarı da sizin kodlarda [ With Yeni_Mail ] ile başlayan kod parçası ile alttaki örnek te [ With OutMail ] ile başlayan kod parçasının devamında [ .CC ]

..._ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Set Uygulama = CreateObject("Outlook.Application") Set Yeni_Mail = Uygulama.CreateItem(0) With Yeni_Mail .Subject = Range("AX14").Value .Body = Range("AX21").Value...

Merhaba Hocalarım, Bir konu hakkında fikir almak istiyorum. Excel her açılışında kullanıcıya sezdirmeden açıldığı bilgisayarın seri numarasını ya da kullanıcı adını outlook vs. program açmadan belirlediğim bir mail adresine mail olarak gönderebilir mi? Eğer mümkünse desteğinizi rica ediyorum.

Merhaba, Önceki çalıştığım işyerinde bankalara 1 den fazla kişi giriyorduk. Sürekli gelen kodu isteme yerine ortak mail açıp telefonu gelen sms kodunu ortak maile yönlendiriyorduk. Ama sizin istediğiniz tam tersi gelen maili sms istiyorsunuz?

Merhaba günlük olarak gelen belli bir maildeki konuyu belli bir numaraya sms olarak iletiyorum. Bu işlemi outlook ka kural ekleyerek makro recorder(mausue tıklama programı) ile windows üzerinden yaptığım belli tıklamalar ile google mesajlar üzerinden sms atıyorum. ama sorun şu ki bu mail...

Çok teşekkürler bu oldu sadece ekran görüntüsünü aynı zamanda ek dosya olarak eklemiş onu kaldırdım tam istediğim gibi oldu.

Merhaba, Option Explicit Sub HucreFotoToOutlook() Dim mailkonu As String Dim Mail As String Dim mailcc As String Dim mailmesaj As String Dim sonsatir As Long Dim mailHTML As String Dim ResimAlan As Range Dim OutApp As Object Dim OutMail As Object Dim...

...mesai sonrası gönderilen tüm mailleri a katagorisine ekliyor çalışıyor denedim. Sub FilterEmailsAndAddCategory() Dim olNamespace As Outlook.Namespace Dim olFolder As Outlook.Folder Dim olItem As Object Dim mail As Outlook.MailItem Dim receivedTime As Date Dim...

teşekkürler hocam ama olmadı

....Chart.Export Filename:=picPath, FilterName:="PNG" .Delete End With shp.Delete Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = Mail .CC = mailcc .Subject = mailkonu .Display...

..."I").End(1).Row If sonsatir < 20 Then sonsatir = 50 Set alan = Range("A1:J" & sonsatir) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = Mail .CC = mailcc .Subject = mailkonu...

....Chart.Export Filename:=picPath, FilterName:="PNG" .Delete End With shp.Delete Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = Mail .CC = mailcc .Subject = mailkonu .Display...

..."I").End(1).Row If sonsatir < 20 Then sonsatir = 50 Set alan = Range("A1:J" & sonsatir) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = Mail .CC = mailcc .Subject = mailkonu...

Merhaba, Outlookta mesai sonrası gelen mailleri filitrelemek istiyorum örneğin hafta içi 08:30 ve 18:30 saatleri dışında ve cumartesi pazar günü gelen mailleri filitreleme yapabilir miyiz ?

dilerseniz yeni outlook kurulumu için destek sağlayabilirim sizde makro ile destek olursunuz