- 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.
Başka örnek kodumda alt satır yapıyor. Ama onada dosya ekleyemiyorum
Bundada alt satır oluyot attachment yapılmıyor.
yardımlarınızı bekliyorum
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)
yardımlarınızı bekliyorum