V
Vacuum Sealed
Hi guy's
As I have upgraded my home system to Win7 and Off2010 (minus Outlook), I
have been using Thunderbird.
I quite easily used the MS suite to do everything nicely, but now have
to urgently get the Thunderbird equivalent up and running as I will be
working from home on Thursday.
I tried this and it compiles and runs through, it just does not kick off
TB or the message.
Unfortunately, I can't use C.D.O. due to the formatting of information
in the message body.
Really appreciate a point in the right direction please..
Sub sendEmail(emailaddr As String, eVendorsName As String, cLoad As
String, cPO As String, cStacks As String, cDC As String, cDay As String,
cDat As String, CTime As String, CPAL As String, LPAL As String)
Dim vTBird As String, vInLine As String, vSubject As String, strbody As
String
vTBird = "C:\Program Files(86)\Mozilla Thunderbird\Thunderbird.exe"
vSubject = "Pick-Ups for " & cDat & " - " & "Collecting Load ID: " & cLoad
strbody = "HI, " & Chr(10) & _
"" & Chr(10) & _
"We will be calling in to pick up (On Behalf of) the following
Order(s) :" & Chr(10) & _
"" & Chr(10) & _
"Vendor : " & eVendorsName & Chr(10) & _
"" & Chr(10) & _
"Load ID : " & cLoad & Chr(10) & _
"PO No(s) : " & cPO & Chr(10) & _
"Pallet Stack(s) : " & cStacks & Chr(10) & _
"Bound For : " & cDC & Chr(10) & _
"" & Chr(10) & _
"Day : " & cDay & Chr(10) & _
"Date : " & cDat & Chr(10) & _
"Time : " & CTime & " Approx" & Chr(10) & _
"" & Chr(10) & _
"" & Chr(10) & _
"Pallet Exchange Details: Chep = " & CPAL & " - Loscam = " & LPAL
& Chr(10) & _
"" & Chr(10) & _
"Regards, " & Chr(10) & _
"Transport"
On Error Resume Next
vInLine = " -compose to=" & emailaddr _
& ",subject=" & vSubject _
& ",body=" & strbody
Call Shell(vTBird & vInLine, vbMaximizedFocus)
On Error GoTo 0
Exit Sub
End Sub
As always thank you heaps..
Mick.
As I have upgraded my home system to Win7 and Off2010 (minus Outlook), I
have been using Thunderbird.
I quite easily used the MS suite to do everything nicely, but now have
to urgently get the Thunderbird equivalent up and running as I will be
working from home on Thursday.
I tried this and it compiles and runs through, it just does not kick off
TB or the message.
Unfortunately, I can't use C.D.O. due to the formatting of information
in the message body.
Really appreciate a point in the right direction please..
Sub sendEmail(emailaddr As String, eVendorsName As String, cLoad As
String, cPO As String, cStacks As String, cDC As String, cDay As String,
cDat As String, CTime As String, CPAL As String, LPAL As String)
Dim vTBird As String, vInLine As String, vSubject As String, strbody As
String
vTBird = "C:\Program Files(86)\Mozilla Thunderbird\Thunderbird.exe"
vSubject = "Pick-Ups for " & cDat & " - " & "Collecting Load ID: " & cLoad
strbody = "HI, " & Chr(10) & _
"" & Chr(10) & _
"We will be calling in to pick up (On Behalf of) the following
Order(s) :" & Chr(10) & _
"" & Chr(10) & _
"Vendor : " & eVendorsName & Chr(10) & _
"" & Chr(10) & _
"Load ID : " & cLoad & Chr(10) & _
"PO No(s) : " & cPO & Chr(10) & _
"Pallet Stack(s) : " & cStacks & Chr(10) & _
"Bound For : " & cDC & Chr(10) & _
"" & Chr(10) & _
"Day : " & cDay & Chr(10) & _
"Date : " & cDat & Chr(10) & _
"Time : " & CTime & " Approx" & Chr(10) & _
"" & Chr(10) & _
"" & Chr(10) & _
"Pallet Exchange Details: Chep = " & CPAL & " - Loscam = " & LPAL
& Chr(10) & _
"" & Chr(10) & _
"Regards, " & Chr(10) & _
"Transport"
On Error Resume Next
vInLine = " -compose to=" & emailaddr _
& ",subject=" & vSubject _
& ",body=" & strbody
Call Shell(vTBird & vInLine, vbMaximizedFocus)
On Error GoTo 0
Exit Sub
End Sub
As always thank you heaps..
Mick.