Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Sayın usubaykan hocam,
Elinize emeğinize sağlık, çok teşekkür ederim.
Hocam Form denetiminde eklediğim butona kodları ekledim, ve masaüstünde Test isimli jpg dosyası var ama mail göndermedi.
Muhtemelen ben yapamadım. Neyi yapamadığımı bilmiyorum. Yardım edermisiniz.
Sub Mail_Gönder()
Dim App As Object
Dim Mail As Object
Set App = CreateObject("Outlook.Application")
App.Session.Logon
Set Mail = App.CreateItem(0)
With Mail
.To = "" 'tırnak işaretlerinin içerisine kime mail adresi
.CC = "" 'bilgi mail adresi...
Değerli arkadaşlar merhaba,
sizlerden bir yardım daha isteyebilir miyim.
Forum sayfasında araştırma yaptım çok örnekler var fakat ben yapamadım.
Bu dosyadaki masaüstüne kaydettiği resmi mail olarak gönderebilir miyiz.
...sunmuş olduğum klasörün içerisinde 2 adet excel dosyası bulunmaktadır,
1. Teklif formu : müşterilere verdiğim teklifleri buradan hazırlayıp mail ile göndermekteyim.
2. Siparişler Takip : Teklif formundan (B-C-D-E-F-G-H-I-J-K) sütunlarını kopyalayıp, Siparişler Takip dosyasında...
...getiyorum. ve sizin yapmış olduğnuz hesaplama devreye girecek ancak indis olmuyor. İndis te satırları belirtmem gerekiyor. Benim altın üyeliğim olmadığı için foruma dosya ekleyemiyorum ve dosya indiremiyorum. eğer bir mail adresi verirseniz örnek tabloyu gönderebilirim. Teşekkürler. İyi...
Merhaba;
https://drive.google.com/file/d/1Tg-uYQsEb04M_Bwox4lupBa86A_WNeph/view?usp=sharing
@makan programı bende yok ama; benim yapmış olduğumun izin takip programını ekliyorum. Umarım işinize yarar.
İlginiz için teşekkürler, ben aslında haftalık, aylık, yıllık gibi kıyaslamalar yapabilmek için düşünmüştüm. Ancak mevcut hali ile pratik bir yol yok sanırım, teknik konularına hakim değilim, ama şu da var, 50 binden fazla ürün, ve bu ürünlerin yer aldığı çok sayıda market şubesi. excel...
...çok çok hızlı hale getirmek için bazı teknolojiler kullanmak zorundalar, belki talep ederseniz açık bir api key alabilirsiniz bunun için mail atıp şansınızı deneyebilirsiniz.
Yapay Zeka ile karşılaşmadığımız bir çözüm varmı diye kontrol ettiğimde; Önerilerinin sonucu hep aynı hata ile...
Bir dene biraz meşaketli
Sub TopluKEPMailGonder()
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim i As Long
Dim SonSatir As Long
Dim ws As Worksheet
' Aktif sayfayı ayarla
Set ws = ThisWorkbook.Sheets("Sheet1") ' Adını değiştir
' Son satırı bul...
Sub ExcelMailGonder()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim isim As String
Dim s1 As...
Sayın @muhasebeciyiz teşekkürler, buda alternatif güzel bir çözüm. Mail gitmeden önce yüklenmiş olarak ekranda, gönder olayını manuel yapıyoruz. Mail üzerinde değişiklik yapılabiliyor.
Sayın @mustafa1205 sanırım olmuş. Teşekkürler.
Sanırım dememin sebebi benim şahsi bilgisayarımdaki mail hesaplarındaki bir anlamsız sıkıntı ile ilgili. Sadece excel dosyası içeren mailler gönderebiliyorum kendime. Ancak trafikte bekleyen eski mailler geliyormuş gibi durum var. Emin...
Sub AktifSayfaExcelOlarakMailGonder()
On Error Resume Next
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object...
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.