How JustAnswer Works:

  • Ask an Expert
    Experts are full of valuable knowledge and are ready to help with any question. Credentials confirmed by a Fortune 500 verification firm.
  • Get a Professional Answer
    Via email, text message, or notification as you wait on our site.
    Ask follow up questions if you need to.
  • 100% Satisfaction Guarantee
    Rate the answer you receive.

Ask NewITZone Your Own Question

NewITZone
NewITZone, Computer Enthusiast
Category: Microsoft Office
Satisfied Customers: 90
Experience:  I have been using Office Pro for 10 years and implemented applications for business use.
53509759
Type Your Microsoft Office Question Here...
NewITZone is online now
A new question is answered every 9 seconds

Im trying to send a note from an EXCEL (Save&Send) macro and

Customer Question

I'm trying to send a note from an EXCEL (Save&Send) macro and SAVE the file first (which I have done) and attach a file in VBA "without" using anything associated with Outlook (I'm using: ActiveWorkbook.FollowHyperlink). GMAIL is used by the person who will be using this macro and I use OUTLOOK but I need the solution to work in both environments. A solely Outlook solution will NOT solve my problem.

I can build the note (using the following code) but I have two problems:

1. The note opens but is NOT automatically sent.
2. I am UNABLE to include an attachment (i.e., the actual XLSM file from which I pressed the "Save&Send" macro).

Can this be automated?

I have define "Recipient", "Subj", "MyFileName" and "Msg" in earlier code.

HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "file=" & ThisWorkbook.Path & "\" & MyFileName & "&"
HLink = HLink & "body=" & Msg & "&"

ActiveWorkbook.FollowHyperlink (HLink)

Thanks,
Roger
Submitted: 2 years ago.
Category: Microsoft Office
Expert:  Rachel-Mod replied 2 years ago.

Hi, I’m a moderator for this topic and I wonder whether you’re still waiting for an answer. If you are, please let me know and I will do my best to find a Professional to assist you right away. If not, feel free to let me know and I will cancel this question for you. Thank you!

Customer: replied 2 years ago.
Thank you Rachel, I am still waiting for a response. Thanks, Roger
Expert:  Rachel-Mod replied 2 years ago.

Sometimes, finding the right Professional can take a little longer than expected and we thank you greatly for your understanding. We’ll be in touch again shortly

Customer: replied 2 years ago.
Okay Rachel, with the holiday weekend upon us (Easter and Passover), I'm sure it will be difficult to find someone. I can wait until next week. Just so you are aware, the $22 was already charged to my account. I thought it would have been charged only if I got a satisfactory response. Roger (XXXXX@XXXXXX.XXX).
Customer: replied 2 years ago.
Here are two options I am trying with comments on how successful they are.
'********************************************************************
' This code sends the note automatically & includes a body but does NOT include the attachment. *
'********************************************************************
MyFileName = "Master File " & MyFileName & "xlsm"
Recipient = "XXXXX@XXXXXX.XXX"
Subj = "Master File"
Msg = "Attached please find the latest Master File." & _
"%0A%0A" & ""

HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "file=" & ThisWorkbook.Path & "\" & MyFileName & "&"
HLink = HLink & "body=" & Msg & "&"
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "%s", True
'********************************************************************
' This code does NOT send the note automatically or include the body but DOES add an attachment. *
'*********************************************************************
Application.Dialogs(xlDialogSendMail).Show _
arg1:="XXXXX@XXXXXX.XXX", _
arg2:="Latest Master File"
Application.Wait (Now + TimeValue("0:00:01"))
' The following line does not appear to work here but up above it does work. Don't know why.
Application.SendKeys "%s", True
Expert:  Rachel-Mod replied 2 years ago.

Thank you for your patience, your business is very important to us, we are waiting on the professional with the right expertise to come online. Feel free to let us know if you would like us to continue searching for a professional or if you would like us to close your question. Thank you for your understanding!

Customer: replied 2 years ago.
Rachel, any word on someone reviewing my question? I've already been charged and have received no input. Please advise.
Expert:  Lindie-mod replied 2 years ago.
Please understand that it’s rare when we cannot find the right Professional Nevertheless, because you are entitled to your money back with no questions asked, we will process your refund immediately, upon your request. Please accept our sincere apology. We hope you’ll think of us again when the need arises

JustAnswer in the News:

 
 
 
Ask-a-doc Web sites: If you've got a quick question, you can try to get an answer from sites that say they have various specialists on hand to give quick answers... Justanswer.com.
JustAnswer.com...has seen a spike since October in legal questions from readers about layoffs, unemployment and severance.
Web sites like justanswer.com/legal
...leave nothing to chance.
Traffic on JustAnswer rose 14 percent...and had nearly 400,000 page views in 30 days...inquiries related to stress, high blood pressure, drinking and heart pain jumped 33 percent.
Tory Johnson, GMA Workplace Contributor, discusses work-from-home jobs, such as JustAnswer in which verified Experts answer people’s questions.
I will tell you that...the things you have to go through to be an Expert are quite rigorous.
 
 
 

What Customers are Saying:

 
 
 
  • My Expert answered my question promptly and he resolved the issue totally. This is a great service. I am so glad I found it I will definitely use the service again if needed. One Happy Customer New York
< Last | Next >
  • My Expert answered my question promptly and he resolved the issue totally. This is a great service. I am so glad I found it I will definitely use the service again if needed. One Happy Customer New York
  • Wonderful service, prompt, efficient, and accurate. Couldn't have asked for more. I cannot thank you enough for your help. Mary C. Freshfield, Liverpool, UK
  • This expert is wonderful. They truly know what they are talking about, and they actually care about you. They really helped put my nerves at ease. Thank you so much!!!! Alex Los Angeles, CA
  • Thank you for all your help. It is nice to know that this service is here for people like myself, who need answers fast and are not sure who to consult. GP Hesperia, CA
  • I couldn't be more satisfied! This is the site I will always come to when I need a second opinion. Justin Kernersville, NC
  • Just let me say that this encounter has been entirely professional and most helpful. I liked that I could ask additional questions and get answered in a very short turn around. Esther Woodstock, NY
  • Thank you so much for taking your time and knowledge to support my concerns. Not only did you answer my questions, you even took it a step further with replying with more pertinent information I needed to know. Robin Elkton, Maryland
 
 
 

Meet The Experts:

 
 
 
  • jstinehelfer

    Information Systems Manager

    Satisfied Customers:

    36
    A+ Comptia Certified computer repair
< Last | Next >
  • http://ww2.justanswer.com/uploads/JS/jstinehelfer/2012-6-6_215146_Pictureofme1.64x64.png jstinehelfer's Avatar

    jstinehelfer

    Information Systems Manager

    Satisfied Customers:

    36
    A+ Comptia Certified computer repair
  • http://ww2.justanswer.com/uploads/JA/JasonJames122/2011-12-16_135647_jasonjamesheadshotweb.64x64.jpg JasonJames122's Avatar

    JasonJames122

    Computer Enthusiast

    Satisfied Customers:

    0
    I manage all information systems (network of Windows PC's and servers with Microsoft Office products) for a small business
  • http://ww2.justanswer.com/uploads/JE/jessmagz/2012-6-6_18129_jm.64x64.jpg Jess M.'s Avatar

    Jess M.

    Computer Support Specialist

    Satisfied Customers:

    301
    Computer Software Specialist for more than 10 years
  • http://ww2.justanswer.com/uploads/CH/chutz747/2011-11-6_14231_me.64x64.jpg The-PC-Guy's Avatar

    The-PC-Guy

    Computer Manager

    Satisfied Customers:

    274
    20 years experience providing remote computer support
  • http://ww2.justanswer.com/uploads/SP/spherrod/2012-6-6_174244_1000852.64x64.JPG Steve Herrod's Avatar

    Steve Herrod

    Computer Support Specialist

    Satisfied Customers:

    125
    Trained in Microsoft Office from 2000 through to latest version 2010.
  • http://ww2.justanswer.com/uploads/SE/Seashore2011/2011-12-6_33418_111205223015.64x64.jpg Chris L.'s Avatar

    Chris L.

    Support Specialist

    Satisfied Customers:

    124
    Certified Expert with over 10 years experience.
  • http://ww2.justanswer.com/uploads/KR/krkljatorm/2012-6-24_153417_ITMiro.64x64.jpg IT Miro's Avatar

    IT Miro

    Computer Scientist

    Satisfied Customers:

    97
    Bachelor's Degree in Information Technology, Microsoft Certified Professional