Error with Sending Hyperlink via email using VBA

[The_Steward]

Hi,

I keep getting Compile Syntax Error when trying to run the following Macro. Please Help!

Sub Give_Feedback()

Dim EmailApp As Object
Dim EmailItem3 As Object
Dim xStrBody As String
xStrBody = "Good Morning/Afternoon" & "<br>" & "<br>" _
& "My feedback is about:" & "<br>" & "<br>" & "Kind regards," & "<br>" _
& "Insert Name Here" & "<br>" & "<br>" & _
"Do You want to receive a free month for your subscription? Fill out our survey by clicking "<a href=""https://4screens.net/e/62b1566495602c01000005c6"">Here</a> "

 On Error Resume Next
   
Set EmailApp = CreateObject("Outlook.Application")
Set EmailItem3 = EmailApp.CreateItem(0)


With EmailItem3

.To = ""

.Subject = "Feedback"

.HTMLBody = .HTMLBody & xStrBody


.Display

End With
Set EmailItem3 = Nothing
Set EmailApp = Nothing


End Sub

 

[Mposwal]

Hi,

I keep getting Compile Syntax Error when trying to run the following Macro. Please Help!

Sub Give_Feedback()

Dim EmailApp As Object
Dim EmailItem3 As Object
Dim xStrBody As String
xStrBody = "Good Morning/Afternoon" & "<br>" & "<br>" _
& "My feedback is about:" & "<br>" & "<br>" & "Kind regards," & "<br>" _
& "Insert Name Here" & "<br>" & "<br>" & _
"Do You want to receive a free month for your subscription? Fill out our survey by clicking "<a href=""https://4screens.net/e/62b1566495602c01000005c6"">Here</a> "

 On Error Resume Next
  
Set EmailApp = CreateObject("Outlook.Application")
Set EmailItem3 = EmailApp.CreateItem(0)


With EmailItem3

.To = ""

.Subject = "Feedback"

.HTMLBody = .HTMLBody & xStrBody


.Display

End With
Set EmailItem3 = Nothing
Set EmailApp = Nothing


End Sub

make following change:

& "Do You want to receive a free month for your subscription? Fill out our survey by clicking <a href=" & "https://4screens.net/e/62b1566495602c01000005c6" & ">Here</a> "

 

[Mposwal]

 

[The_Steward]

Thanks! This fixed the Syntax Error.

But now I am getting the "expect, end of statement error" at the href part. I tried to change the code exactly as you suggested.

Sub Give_Feedback()

Dim EmailApp As Object
Dim EmailItem3 As Object
Dim xStrBody As String
xStrBody = "Good Morning/Afternoon" & "<br>" & "<br>" _
& "My feedback is about:" & "<br>" & "<br>" & "Kind regards," & "<br>" _
& "Insert Name Here" & "<br>" & "<br>" _
& "Do You want to receive a free month for your subscription? Fill out our survey by clicking "<a href=" & "https://4screens.net/e/62b1566495602c01000005c6" & ">Here</a> "

 On Error Resume Next
  
Set EmailApp = CreateObject("Outlook.Application")
Set EmailItem3 = EmailApp.CreateItem(0)


With EmailItem3

.To = ""

.Subject = "Feedback"

.HTMLBody = .HTMLBody & xStrBody


.Display

End With
Set EmailItem3 = Nothing
Set EmailApp = Nothing


End Sub

 

[Mposwal]

Replace
& "Do You want to receive a free month for your subscription? Fill out our survey by clicking "<a href=" & "https://4screens.net/e/62b1566495602c01000005c6" & ">Here</a> "

with
& "Do You want to receive a free month for your subscription? Fill out our survey by clicking " & "<a href=" & "https://4screens.net/e/62b1566495602c01000005c6" & ">Here</a> "

 

[The_Steward]

Replace
& "Do You want to receive a free month for your subscription? Fill out our survey by clicking "<a href=" & "https://4screens.net/e/62b1566495602c01000005c6" & ">Here</a> "

with
& "Do You want to receive a free month for your subscription? Fill out our survey by clicking " & "<a href=" & "https://4screens.net/e/62b1566495602c01000005c6" & ">Here</a> "

Hi Mposwal,

Thankyou, that makes sense and worked like a treat!

Btw, do you know of any way to make this Macro work when Outlook is not opened? As the Macro only works when I have outlook open?

Or even better, do you know how to set this Macro up so that it opens up default mail application (i.e windows mail) so it is not exclusive to outlook?

Thankyou so much for all your assistance!

Kind regards,

 

[Mposwal]

Hi Stewart, sorry for late rely. Your code is already working fine whether or not outlook is open. As far as windows mail concerns, I cant say much about that as I have not tried that from my end. Maybe you can check by change default mail app to Windows Mail.

 

[The_Steward]

Hi Stewart, sorry for late rely. Your code is already working fine whether or not outlook is open. As far as windows mail concerns, I cant say much about that as I have not tried that from my end. Maybe you can check by change default mail app to Windows Mail.

Hi Mposwal,

No problem, for me it wasn't opening my outlook and actually bugging my outlook so I couldn't start it, but I found this simple Macro that just opened Outlook before creating the draft email.

Shell ("OUTLOOK")

I've just put a note to users that they must have outlook downloaded and installed, and I'll see how that goes for now.

Thanks for all your help and suggestions, much appreciated.

Kind regards,