Merhaba;
Konu eski ama uygulama mantığı güzel fakat mail (KART GÖNDER) bendede çalışmadı mail göndermiyor maalesef. Konu sahibi veya Üstatlar belki yardımcı olur bu konuda.
Merhaba sipariş excelini bu zamana kadar herhangi bir sorun yaşamadan aktif kullandım. 12 ve 13 üncü kantinleri yeni ekledim. Hücrenin içi boşken gizleme formülü 12 ve 13 üncü kantin sütunlarına uygulamıyor. Yardım eder misiniz ?
Ek olarak e posta gönder butonu pdf ye dönüştürerek yeni mail...
Aşağıdaki kodu deneyin.
Sub FormulsuzSayfa()
Dim RaporYolAd As String
Dim Adres As String
RaporYolAd = ActiveWorkbook.Path & "\DOSYA.xlsx"
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveSheet.Cells.Copy
If Dir(Environ("USERPROFILE") &...
hocam merhabalar bu kod kendi bilgisayarımda çalışırken, diğer bilgisayarlarda "Path not found" hatası verip biçimi atmıyor diğer bilgisayarlarada "123" renk özelleştirmesini yapmamıza rağmen neden kaynaklanıyor olabilir hata
Örnek dosyanızdaki kodları aşağıdaki ile değiştirip deneyiniz.
Sub FormulsuzSayfa()
Dim RaporYolAd As String
RaporYolAd = ActiveWorkbook.Path & "\DOSYA.xlsx"
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveSheet.Cells.Copy
ActiveWorkbook.Theme.ThemeColorScheme.Load...
İleri Tarihli Mail - Dijital Zaman Kapsülü - DeferredDeliveryTime
Şuan oluşturulacak olan bir mail içeriğini, ileri bir tarihte kişiye ulaştırılması için oluşturulan mail.
( Microsoft Exchange sunucusu veya Office 365 gibi bulut tabanlı bir posta hizmeti kullanıyorsanız)
Outlook e-postayı...
Selamlar
Arkadaşlar Firmalarsa Satış raporlarını mail olarak göndermek için yazılmış kodlarda aşağıdaki gibi hata alıyorum. Sebebini bulamadım.
Bilen arkadaşlar ilgilenebilirse memnun olurum.
aldığım hata aşağıda ki gibi
Sub MailGonder()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim i As Integer
Dim rng As Range
Dim cel As Range
Dim bodyText As String
' Outlook nesneleri oluştur
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail =...
Merhaba,
Alternatif kodlar.
Option Explicit
'Biolight 2024 - Eppur Si Muove
Sub HucreHTMLToOutlook()
Application.ScreenUpdating = False
Dim veriAraligi As Range
Dim sonSatir As Long
Dim yeniSayfa As Worksheet
Dim dosyaYolu As String
dosyaYolu = Environ("TEMP") &...
Hocam, şu şekilde sayfa kod alanı oldu. Zamanı yazıp gönder diyorum. Anında gönderiyor. Zamanı girdikten sonra başka bir şey mi yapacağım?
Enter yapsam, TAB yapsam hatta başka hücreye tıklasam mail anında gidiyor.
Öncelikle, Excel dosyanızda her personelin bilgilerini içeren bir tabloya ihtiyacınız var. Örnek bir düzen şu şekilde olabilir:
ABCD
İsim
E-posta
PDF Dosya
Konu
Ali Veli
ali@example.com
ali.pdf
Ders Programı
Ayşe Yılmaz
ayse@example.com
ayse.pdf
Ders Programı
Bu tabloyu Personel...
Ş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,
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...
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.
Selamlar sipariş formu oluşturuyorum. 3 ayrı buton yapmak istiyorum.
1- Satırdaki sipariş hücrelerin tamamı boş ise satırın tamamının gizlenmesi
2- Gizlenen satırların tamamını göstermesi
3- Otomatik outlook üzerinden mail göndermesi
E posta gönder butonunu uyarlamaya çalıştım.
PDF olarak...
Merhaba
sharepoint üzerinden online kullandığımız dosya var. Normal excel üzerinde oluşturduğum makro mail gönder butonu burada çalışmıyor. Buna alternatif fikri olan veya mail gönderme yapabileceğim bir yol var mı?
not butonda mail listesi otomatik getiriyorum.
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.