Main Page Sitemap

Most viewed

RADIO Player Pro 1.9.3.7 Keygen Full Version
jPG to Vector Converter 2.0 free activation code incl Our citation guides provide detailed information about all types of sources in MLA, APA, Chicago and Turabian styles. jPG to Vector Converter 2.0 free activation code incl If required by your instructor, you can add...
Read more
SecureBlackbox (ActiveX/DLL) 10.0.233 with Activator
Hi, I will explain how to Manage Multiple Projects with MS PROJECT 2010. Before I start, I have to tell you something very important. If you are going to manage multiple Projects as a Program, or Portfolio, or both, and you want to do...
Read more
Protoport Personal Firewall 1.5 Full and Cracked
1. Spector TD. Rheumatoid arthritis. Rheum Dis Clin North Am. 1990; 16: 513–537. [PubMed] 2. McInnes IB, Schett G. The pathogenesis of rheumatoid arthritis. N Engl J Med. 2011; 365: 2205–2219. doi: 10.1056/NEJMra1004965 [PubMed] 3. Finckh A, Liang MH, van Herckenrode CM, de Pablo...
Read more

MS Access Remove Text, Spaces & Characters


3D Bar Chart Applet 1.0 with Activation Keys

I want to automize the sms action from within MS Access the same as I did with send an email directly from MS Access. I use Outlook 2007 and it provide me the option of sending sms messages from Outlook 2007 and it works good from Outlook. My gateway for sending sms messages is already setup within Outlook 2007. I create tblTextMessages and frmTextMessages within my MS Access DB. What I want to do is when I click the send button (cmdSend) on frmTextMessages that the sms must be send via Outlook 2007 but I want to skip the action going to Outlook 2007 click on the arrow next to New scroll down to Text Messages and then send the sms. I need help on how to automize this action.
I tried to change the code that I use to send emails directly from MS Access but I can't get it to work. Here the code I use when sending emails. I don't needs to attached a file when I send sms messages.
code
-------------------
Private Sub ClientEmail_Click()
If Me.Dirty Then Me.Dirty = False
Dim OutlookAttach As Outlook.Attachment
Dim strFileName As String
' The filepath for the attachment is everything to the left of the first # sign delimiter in the hyperlink
If Not IsNull(Me.strHyperlink) Then
strFileName = Left(Me.strHyperlink, InStr(Me.strHyperlink, "#") - 1)
Else
strFileName = "Empty"
End If
'MsgBox "StrFilename : " & StrFilename
'Set the Outlook controls to create a new message
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
'Set the FROM field
OutlookMail.SentOnBehalfOfName = strFrom
'Set the TO field
If Not IsNull(Me.Text74) Then
OutlookMail.To = Me.Text74
End If
'Set the CC field
OutlookMail.CC = strCCAddress
'Set the SUBJECT field
OutlookMail.Subject = Me.Text83 & " Claim#: " & Me.Text61 & "/" & Me.Text65
'Set the ATTACHMENT field
If strFileName "Empty" Then
Set OutlookAttach = OutlookMail.Attachments.Add(strFileName)
End If
'Set the BODY field
OutlookMail.HTMLBody = "" & Me.ClaimNote & "
Groete/Regards
Johan Kotz?
082 6583465
JK BROKERS
Is an authorised financial services provider (FSP#: 5019)
7 Barlinka Street Riebeek Kasteel 7307 South Africa
P.O Box 181 Riebeek Kasteel 7307 South Africa
Tel#: 022 4481738, Fax#: 086 6681738
Email: email@removed
Web site:www.jkbrokers.co.za>www.jkbrokers.co.za

Join this group


523
Sitemap