- Katılım
- 22 Aralık 2005
- Mesajlar
- 423
- Excel Vers. ve Dili
- Microsoft 365
- Altın Üyelik Bitiş Tarihi
- 03.12.2025
Arkadaşlar merhaba,
Geliştirmekte olduğum uygulamanın bir bölümünde bilgimin yetersiz olduğunu görerek desteğinize başvurmak istedim. Uygulama masaüstüne kaydedilmiş txt dosyasını açarak içerisinne satır satır kayıt edilmiş verileri ilgililere mail olarak gönderecek. Aşağıdaki kod ile txt dosyayı açarak mail gövdesine içeriği aktarıyorum. Ancak içerik düz metin olarak aktarılıyor. Bunu satır satır aktarması bir döngü oluşturmam gerekiyor ancak kopyalanacak yer mail gövdesi olduğu için sıkıntı yaşıyorum. Döngüyü nasıl mail gövdesine dahil edebileceğim konusunda fikri olan varsa ve paylaşırsa şimdiden teşekkürlerimi sunarım.
Geliştirmekte olduğum uygulamanın bir bölümünde bilgimin yetersiz olduğunu görerek desteğinize başvurmak istedim. Uygulama masaüstüne kaydedilmiş txt dosyasını açarak içerisinne satır satır kayıt edilmiş verileri ilgililere mail olarak gönderecek. Aşağıdaki kod ile txt dosyayı açarak mail gövdesine içeriği aktarıyorum. Ancak içerik düz metin olarak aktarılıyor. Bunu satır satır aktarması bir döngü oluşturmam gerekiyor ancak kopyalanacak yer mail gövdesi olduğu için sıkıntı yaşıyorum. Döngüyü nasıl mail gövdesine dahil edebileceğim konusunda fikri olan varsa ve paylaşırsa şimdiden teşekkürlerimi sunarım.
Kod:
With Outmail
.To = sndr
.CC = wfcc
.Subject = "Idari Isler Is Planlarina Aktarimi Yapilan " & yok & " Adet QHSE Bulgusu Hk."
.Attachments.Add CreateObject("WScript.Shell").specialfolders("Desktop") & "\Aktarilan.txt"
ifile = FreeFile
Open CreateObject("WScript.Shell").specialfolders("Desktop") & "\Aktarilan.txt" For Input As #ifile
strVar = Input(LOF(ifile), ifile)
Close #ifile
.HTMLBody = "<p>Merhaba</p>" & vbNewLine & vbNewLine & Date & " Tarihi itibariyle " & yok & " adet QHSE bulgusu idari isler is planlarina eklenmistir." _
& vbNewLine & vbNewLine & "Bulgu detaylari ekte ve asagidadir." _
& vbNewLine & vbNewLine & strVar & _
"</p><p>IDARI ISLER </p>" & _
"<html><img src='cid:" & Dir(tmp) & "' width=83 height=41></html>"
.Save
.Display
.Send
End With
Set Outmail = Nothing: Set OutApp = Nothing
