Thunderbird Mail atma

Katılım
15 Mayıs 2015
Mesajlar
518
Excel Vers. ve Dili
Microsoft Office 2019
Altın Üyelik Bitiş Tarihi
26/06/2023
Merhaba ;

Thunderbird ile mail atmaya çalışıyorum
Ama body kısmında alt satır yapamıyorum

Yapmak istedeğim; alt satıra geçmek aşağıdaki gibi

Merhaba;

Konu

İyi Çalışmalar

gibi

Aşağıdaki kod Kullanışlı ama alt satır yapmıyor.

Kod:
sCmd = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
email = "name@anyemail.com" 'fake email, change to a real one
Subject = "Test message"

Attch = "O:\dokuman.doc" 'fake file name and path, change to a real one
emailMsg = "Hi " & recipientName & vbCrLf & vbCrLf & msg & vbCrLf
sCmd = sCmd & " -compose " & "to=" & email
sCmd = sCmd & ",subject=" & Subject
sCmd = sCmd & ",attachment=" & Attch
sCmd = sCmd & ",body='" & " Merhaba" & Chr$(34) & _
                                "Konu" & Chr$(34) & _
                                    "İyi Çalışmalar" & "'" & """"

'MsgBox sCmd
Call Shell(sCmd, vbNormalFocus)

Başka örnek kodumda alt satır yapıyor. Ama onada dosya ekleyemiyorum

Kod:
Dim strCommand As String ' Command line to prepare Thunderbird e-mail
Dim strTo As String ' E-mail address
Dim strSubject As String ' Subject line
Dim strBody As String ' E-mail body

strTo = "test@test.com, test2@test.com"
strSubject = "Test subject"

strBody = "&body=" & Chr$(34) & "Body line 1" & Chr$(34) & _
"&body=" & Chr$(34) & "Body line 2" & Chr$(34) & _
"&body=" & Chr$(34) & "Body line 3" & Chr$(34) & _
"&body=" & Chr$(34) & " " & Chr$(34) & _
"&body=" & Chr$(34) & "Signature 1" & Chr$(34) & _
"&body=" & Chr$(34) & "Signature 2" & Chr$(34) & _
"&body=" & Chr$(34) & "Signature 3" & Chr$(34)


strCommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
strCommand = strCommand & " -compose " & Chr$(34) & "mailto:" & strTo & "?"
strCommand = strCommand & "subject=" & Chr$(34) & strSubject & Chr$(34)
strCommand = strCommand & strBody

MsgBox strCommand
Call Shell(strCommand, vbNormalFocus)
Bundada alt satır oluyot attachment yapılmıyor.

yardımlarınızı bekliyorum
 
Üst