Results 1 to 4 of 4
  1. #1
    DMT Dave is offline Expert
    Windows 10 Access 2016
    Join Date
    May 2018
    Posts
    602

    Adding a linked reply to email body

    Hi Guy's after a little research, i am loosing myself here!!! can someone correct the html code for me please and point out where i am going wrong so that I can understand your changes

    I HOPE ALL OF THIS MAKES SENSE!!!

    I am looking to add 2 choices of links to an email where the recipient can click the relevant option and that would send back to us

    The email we would receive from that link if Opt1 was clicked is:

    "Thank you very much, I can confirm that I received my " & "£" & Me.Value & " along with my free gift"

    The email we would receive from that link if Opt2 was clicked is:

    "Thank you, the engineer that arrived did make an adjustment to the arrangements that we agreed with yourselves."
    "Please inform us of the adjustments that the engineer made with you ?"

    Note I haven't put all Dim's in but all Dim's are set as Strings apart from Calling Email

    Outgoing mail body is "a" to "j"

    Linked Reply options are Opt1 and Opt2

    Reply Body is Return1, Return2, Return3

    Code:
    a = TOD & " " & myClient        b = "Thank you for using our services recently to remove your redundant product."
            c = "It is very important to us as we pride ourselves in serving all clients with a great service, we are just wanting to check to make sure that the full procedure was carried out according to plan."
            d = "1: Did you receive your payment of £" & Me.Value & " ?"
            e = "2: Did you receive your free gift ?"
            f = "To prevent having to write out another email, simply click on the relevant link below to confirm all arrangements such as payment received ok and you were rewarded with your free gift."
            g = "Finally, we just want to say thank you again for using our services and it was an absolute pleasure to assist, please stay safe."
            h = "With Our Kindest Regards"
            j = myName
            Return1 = "Thank you very much, I can confirm that I received my " & "£" & Me.Value & " along with my free gift"
            Return2 = "Thank you, the engineer that arrived did make an adjustment to the arrangements that we agreed with yourselves."
            Return3 = "Please inform us of the adjustments that the engineer made with you ?"
            mySubj = "Courtesy Email Ref " & Me.RecordNo
            Opt1 = "Click here to confirm all was received as agreed"
            Opt2 = "Click here to confirm that the engineer had to adjust the agreements made"
                Set oEmailItem = oOutlook.CreateItem(olMailItem)
                With oEmailItem
                    Set OutAccount = oEmailItem.Session.Accounts.Item(2)
                    .To = myEmail
                    .HTMLBody = a & "<br>" & "<br>" & b & "<br>" & "<br>" & c & "<br>" & "<br> " & _
                    d & "<br>" & e & "<br>" & "<br>" & f & "<br>" & "<br>" & g & "<br>" & "<br>" & h & "<br>" & "<br>" & _
                    i & "<br>" & "<br>" & d & "<br>" & j & "<br>" & "<br>" & _
                    opt1 & "<a href=mailto:removedonhere.com?subject=" & mysubj & body=" & return1 & "<br>" & "<br>" & _
                    opt2 & "<a href=mailto:removedonhere.com?subject=" & mysubj & body=" & return2 & "<br>" & "<br>" return3 & "<br>" & "<br>" & _
                    "<P><IMG border=0 hspace=0 alt='' src='file://T:/Email Signature.jpg' align=baseline></P>" & "<br>" & "<br>" & _
                    "<FONT color=#0000CD>" & eDisc & "<br>" & "<FONT color =#0000CD>" & eDisc2
                    .SendUsingAccount = OutAccount
                    .Display             End With

    Click image for larger version. 

Name:	Email Link.jpg 
Views:	15 
Size:	90.7 KB 
ID:	46223


  2. #2
    Micron is offline Virtually Inert Person
    Windows 10 Access 2016
    Join Date
    Jun 2014
    Location
    Ontario, Canada
    Posts
    9,683
    You posted this here too
    https://www.accessforums.net/showthr...024#post483024

    just thought I should point that out to everyone so that they can stick to one or the other thread.
    You didn't say what the problem is (or I missed that) so how is anyone supposed to zero in on a correction?
    - "doesn't work" doesn't help. Implement changes in copies of your database.
    Iím telling everyone it's good to eat dried grapes. Itís all about raisin awareness.

  3. #3
    DMT Dave is offline Expert
    Windows 10 Access 2016
    Join Date
    May 2018
    Posts
    602
    Hi Micron, yes i did post by mistake!! was getting side tracked too much !!!!

    I am going start a new post altogether because i thought i had been able to get the result but not quite!

    Will do a new post, thank you ps: im not being side tracked at the moment..............

  4. #4
    June7's Avatar
    June7 is offline VIP
    Windows 10 Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    50,358
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Reply to an email table
    By DMT Dave in forum Access
    Replies: 0
    Last Post: 09-10-2020, 10:37 AM
  2. Replies: 1
    Last Post: 02-11-2016, 12:35 PM
  3. Adding query results to email body
    By Kaye960 in forum Programming
    Replies: 2
    Last Post: 12-14-2015, 10:57 PM
  4. Replies: 3
    Last Post: 05-18-2015, 11:24 AM
  5. Email report as body of email (RTF)
    By TheDeceived in forum Programming
    Replies: 4
    Last Post: 07-23-2012, 06:39 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums