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...
degerli @cems
selamın aleyküm hocam bana mailden ulaşma şansınız ulursa ordan net bir şekilde detayları anlata bilirim demli çayım herzaman var sizin gibi degerli insanlar için ilkayaydin5481@gmail.com mail adresim burdan gelen bildirimleri çok geç görüyorum
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...
Görüntünün aşırı küçük olması fotoğrafı çekilen alanın aşırı büyük olduğuna işaret ediyor.
Görüntü sınırlarını belirleyen değer "sonsatır" değişkenidir.
F8 ile adım adım giderek sonsatir = Cells(Rows.Count, "I").End(1).Row değişkeninin aldığı değeri okuyun.
Eğer 1 milyon küsür bir değer ise...
Belki ihtiyacı olan olur 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...
teşekkürler bu oldu ama debug modunda adımlayarak gittiğimde resmi alıyor ekran görüntüsünü maile ama direk çalıştır dediğimde maile boş görüntü alıyor.Debug da aldığı ekran görüntüsü mail içinde tam istediğim gibi tam sayfa ama gönder dediğimde gelen mailde resim çok aşırı küçülmüş şekilde geliyor.
Sub mail_gonder()
Dim alan As Range
Dim ws As Worksheet
Dim picPath As String
Dim shp As Shape
mailkonu = Range("AD1").Value
Mail = Range("AD2").Value
mailcc = Range("AD3").Value
mailmesaj = Range("AD4").Value
sonsatir = Cells(Rows.Count, "I").End(1).Row...
...bir ekran görüntüsü almış ): excelin kendi içerisine tüm satırların arka planını silip gölgeli bir ekran görüntüsü atmış.
bu ekran görüntüsünü mail içerisine yazacak.
Orjinal makronun tamamı altta
Sub mail_gonder()
Dim alan As Range
mailkonu = Range("AD1").Value...
Sub mail_gonder()
Dim alan As Range
Dim ws As Worksheet
Dim pic As Picture
Dim picPath As String
Dim shp As Shape
mailkonu = Range("AD1").Value
Mail = Range("AD2").Value
mailcc = Range("AD3").Value
mailmesaj = Range("AD4").Value
sonsatir =...
Merhaba
Belirli bir alanı seçerek diğer konu kişi mail iç yazısı alanları yazıp mail gönderen bir makrom var. Bu seçili alanı mail içine yapıştırmasını değil bu seçili alanın ekran görüntüsünü almasını istiyorum ama bir türlü çeviremedim.
Sub mail_gonder()
Dim alan As Range...
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.