Ş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 ]
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...
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...
....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 ?
Merhaba;
Şirkette şu şekil bir işleyiş var her müşterinin belli limiti var fatura keserken limit aşılır ise ilgili yöneticiden limit artış onayı alınıyor. Bunu mailin içerisine onay kutuları konarak yapmak istiyorum bir yolu var mıdır? Biraz araştırdım form oluşturma tarzı şeyler gördüm ama...
Merhaba,
Maalesef benim Outlook programım bozuldu, epeydir kullanamıyorum. Microsoftun 2007'ye desteği de kalktı. Yani artık Outlook makrolarını deneme imkanım olmuyor, kendim denemeden yazmak da doğru olmuyor.
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.