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...
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,
Forumdan bulduğum aşağıdaki kod ile dosyayı pdf ye çevirip mail göderebiliyorum.
İsteğim 2 nci kişiye de gönderebilmek. Başka bir değişile CC göndermek için kod ilavesi rica ediyorum.
Teşekkür ediyorum
Sub MAIL_GONDER()
Dim Uygulama As Object
Dim Yeni_Mail As Object
If...
Korhan bey ilginiz için teşekkürler. Dosyayı indirdim, ama ARAMA sayfasında yazdığınız köprü bir mail bağlantısı açıyor. Kendim LİSTE sayfasındaki köprüleri klasör adresi olacak şekilde denedim . Ama bir netice alamadım. Excel 365 kullanıyorum.
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...
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...
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.