Code

Re: Help..Email Button using VBscript on Form?

paralyzedcitizen — Thu, 15 Jan 2009 09:43:25 GMT

I used your second method and got an error. It said it couldn't create an object.

How come?

Re: Help..Email Button using VBscript on Form?

mbenbow — Fri, 28 Jul 2006 19:14:05 GMT

Hey,

There are a couple of ways..........

The ShowMailItem can be used and you can set the To, CC, BCC, Subject and Body of the email message.

Function OpenEmailWindow(eventObj)
'Opens an email window with prefilled subject line and with form as xml attachment (no HTML version).
On Error Resume Next
If Err.number <> 0 Then
eventObj.ReturnStatus = False
Exit Function
End If

Set oFormNum = XDocument.DOM.selectSingleNode("//my:FORMINFO/my:FormNumber")
Set oFormName = XDocument.DOM.selectSingleNode("//my:FORMINFO/my:FormTitle")
formSubj = oFormNum.text & " - " & oFormName.text
XDocument.UI.ShowMailItem "", "", "", formSubj,""
eventObj.ReturnStatus = True
Exit Function
End Function

Or if you have MS Outlook 2003, you can code directly to it:

Sub CreateMailMsg(sTo, sCC, sBCC, sSubj, sBody, sAttachFile)
'purpose creates an outlook message and attaches the MHT file created above
'date 04/19/2006

Dim objOlApp
Dim objItm
Set objOlApp = CreateObject("Outlook.Application")
Set objItm = objOlApp.CreateItem(olMailItem)

With objItm

.To = sTo
.CC = sCC
.BCC = sBCC
.Subject = sSubj
.Body = sBody
.Attachments.Add sAttachFile
.Display

End With

End Sub

Hope that helps,
Mary

Help..Email Button using VBscript on Form?

sloliver — Thu, 22 Jun 2006 16:12:38 GMT

Does anyone know how to create a button on a form using VB that essentially calls the 'Send to Mail Recipient' option? I've seen code that works for Jscript (see below), but nothing for VB.

Thanks

function SendEmailBtn::OnClick(oEvent)
{
createEmail();
}

function createEmail()
{
var xmlContributors =
XDocument.DOM.selectNodes("/iss:issue/iss:contributors/iss:contributor");
var xmlContributor;
var xmlTitle = XDocument.DOM.selectSingleNode("/iss:issue/iss:title");
var rgRecipients = new Array();

while (xmlContributor = xmlContributors.nextNode())
rgRecipients.push(getNodeValue(xmlContributor.selectSingleNode("iss:emailAddressPrimary")));

try
{
var oEnvelope = XDocument.View.Window.MailEnvelope;

oEnvelope.To = rgRecipients.join("; ");
oEnvelope.Subject = getNodeValue(xmlTitle);
oEnvelope.Visible = true;
}
catch (ex)
{
XDocument.UI.Alert(ex.description);
}
}