Я использую код ниже.
(Кстати, мне пришлось удалить какой-то код из-за безопасности, но главная проблема - понимание, я думаю ... если у вас есть вопрос, пожалуйста, спросите)
Проблема в том, что я хочу написать "Değerli Adayımız"
, в перспективе это выглядит как "DeÞerli Adayýmýz"
Я пробовал кое-что, но ничего не вышло.
Мне нужна твоя помощь ...
Большое спасибо.
Sub mailgonder()
Application.EnableEvents = False
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Set fso = CreateObject("Scripting.FilesystemObject")
Set Signature = fso.OpenTextFile("C:\Users\*.htm", 1)
With OutMail
.SentOnBehalfOfName = "*.COM"
.To = Cells(ki, 5)
.CC = "*.com"
.BCC = ""
.Subject = "Deneme"
.HTMLBody = "Değerli Adayımız" & Cells(ki, 2) & Signature.readall
.Display
'.Send
End With
On Error GoTo 0
Set OutMail = Nothing: Set OutApp = Nothing:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub