Save Dialog

[JohanKotze]

Operating system::    Windows 10 pro
Outlook version:     2021
Email type or host:    IMAP

---

Hi Diane
I am using your VBA code to save send messages to clients directories via a save dialog box.

I recently started to a sms messaging service using my email client (outlook) to send a sms to my clients via a gateway provided by my service provider

So I add Call SMSToClient to your VBA code. Now I get 2 save dialog boxes, 1 for sending the sms and the other for the actual email.

The sms is merely to notify the client that we send him/her a document via email.

I don't want to save the sms email, is that even possible.

 

[Diane Poremsky]

Are you using this macro ?

Choosing the Folder to Save a Sent Message In | Slipstick Systems

How to choose the folder to save sent messages in when using Microsoft Outlook.

www.slipstick.com

Those macros use itemsend, so everything in the outbox is saved. The SMS use the standard email form and your email address? Is the to address always the phone number (no @ sign?) or does it have any other things we can use an If statement on?

Something like this - if there is no @ sign for the sms

If instr(1, Item.To, "@") then
If TypeName(objFolder) <> "Nothing" And _
IsInDefaultStore(objFolder) Then
Set Item.SaveSentMessageFolder = objFolder
End If
end if

 

[JohanKotze]

Are you using this macro ?

Choosing the Folder to Save a Sent Message In | Slipstick Systems

How to choose the folder to save sent messages in when using Microsoft Outlook.

www.slipstick.com

Those macros use itemsend, so everything in the outbox is saved. The SMS use the standard email form and your email address? Is the to address always the phone number (no @ sign?) or does it have any other things we can use an If statement on?

Something like this - if there is no @ sign for the sms

If instr(1, Item.To, "@") then
If TypeName(objFolder) <> "Nothing" And _
IsInDefaultStore(objFolder) Then
Set Item.SaveSentMessageFolder = objFolder
End If
end if

Diane it will always be a number in the subject line (me.txtMobileNr) like +27826583465
As I call in from a hidden form is there a way that I can incorporate within your code. Here is the code in the sms form

Sub cmdSMSPolNoticeE_Click()
'Set the Outlook controls to create a new message
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)

If Nz(Me.txtMobileNr, "") = "" Then
MsgBox "Cell number required. Go back to database and enter a cell number", vbOKOnly + vbCritical, "Number Required"
Me.txtMobileNr.SetFocus
Exit Sub
End If

'Set the FROM field
OutlookMail.SentOnBehalfOfName = strFrom
'
'Set the TO field
OutlookMail.To = "johankotzebrok_sms@smsgw1.gsm.co.za"
'
'Set the CC field
OutlookMail.CC = strCCAddress
'
'Set the SUBJECT field
OutlookMail.Subject = Me.txtMobileNr
'
'Set the BODY field
OutlookMail.HTMLBody = "Hi" & " " & Me.txtRecipient & ", " & "we have emailed you your updated policy schedule." & "<BR>" & _
"Regards" & "<BR>" & _
"Johan Kotze Brokers Team." & "<BR>" & _
"DON'T REPLAY TO THIS SMS." & "<BR>" & _
"THANK YOU FOR YOUR SUPPORT."

'Show the message to the user
OutlookMail.Send
End Sub