Add Multiple Attachments Sources using VBA in Word

Status
Not open for further replies.
J

JBark

Hi,

How can this code be written to add multiple attachments using vba and Word

as my email editor. The first attachment is the active document itself, the

other 4 attachments have their full path names stored in a field in the

document. This is what I have but I'm getting a syntax error and I'm not sure

why. Any suggestions are greatly appreciated.

> Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _

> Add Source:=ActiveDocument.TextBox("TextBoxFile1").Result,

Type:=olByValue, _

> Add Source:=ActiveDocument.TextBox("TextBoxFile2").Result,

Type:=olByValue, _

> Add Source:=ActiveDocument.TextBox("TextBoxFile3").Result,

Type:=olByValue, _

> Add Source:=ActiveDocument.TextBox("TextBoxFile4").Result,

Type:=olByValue

> Send
 
You need a separate .Attachments.Add statement for each attachment, not one

long statement with multiple calls to the .Add method.

Sue Mosher

"JBark" <JBark> wrote in message

news:B6DFBA55-0410-444F-8A4B-1FE91DAD0B3C@microsoft.com...
> Hi,

> How can this code be written to add multiple attachments using vba and
> Word
> as my email editor. The first attachment is the active document itself,
> the
> other 4 attachments have their full path names stored in a field in the
> document. This is what I have but I'm getting a syntax error and I'm not
> sure
> why. Any suggestions are greatly appreciated.

> .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _
> .Add Source:=ActiveDocument.TextBox("TextBoxFile1").Result,
> Type:=olByValue, _
> .Add Source:=ActiveDocument.TextBox("TextBoxFile2").Result,
> Type:=olByValue, _
> .Add Source:=ActiveDocument.TextBox("TextBoxFile3").Result,
> Type:=olByValue, _
> .Add Source:=ActiveDocument.TextBox("TextBoxFile4").Result,
> Type:=olByValue
> .Send
>
 
Yes - I had tried that also like this, but I'm still getting syntax error.

> Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _

> Attachments.Add Source:=ActiveDocument.TextBox("TextBoxFile1").Result,

Type:=olByValue, _

> Attachments.Add Source:=ActiveDocument.TextBox("TextBoxFile2").Result,

Type:=olByValue, _

> Attachments.Add Source:=ActiveDocument.TextBox("TextBoxFile3").Result,

Type:=olByValue, _

> Attachments.Add Source:=ActiveDocument.TextBox("TextBoxFile4").Result,

Type:=olByValue

> Send

"Sue Mosher [MVP]" wrote:


> You need a separate .Attachments.Add statement for each attachment, not one
> long statement with multiple calls to the .Add method.
> > Sue Mosher
> > >

> "JBark" <JBark> wrote in message
> news:B6DFBA55-0410-444F-8A4B-1FE91DAD0B3C@microsoft.com...
> > Hi,
> > How can this code be written to add multiple attachments using vba and
> > Word
> > as my email editor. The first attachment is the active document itself,
> > the
> > other 4 attachments have their full path names stored in a field in the
> > document. This is what I have but I'm getting a syntax error and I'm not
> > sure
> > why. Any suggestions are greatly appreciated.
> > .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _
> > .Add Source:=ActiveDocument.TextBox("TextBoxFile1").Result,
> > Type:=olByValue, _
> > .Add Source:=ActiveDocument.TextBox("TextBoxFile2").Result,
> > Type:=olByValue, _
> > .Add Source:=ActiveDocument.TextBox("TextBoxFile3").Result,
> > Type:=olByValue, _
> > .Add Source:=ActiveDocument.TextBox("TextBoxFile4").Result,
> > Type:=olByValue
> > .Send
> >


>
 
This is still all one statement, because of the underscore continuation

characters at the end of the first four lines.

Sue Mosher

"JBark" <JBark> wrote in message

news:E7B89599-FD4F-4E32-9052-569B27FBB3CB@microsoft.com...
> Yes - I had tried that also like this, but I'm still getting syntax error.

> .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _
> .Attachments.Add Source:=ActiveDocument.TextBox("TextBoxFile1").Result,
> Type:=olByValue, _
> .Attachments.Add Source:=ActiveDocument.TextBox("TextBoxFile2").Result,
> Type:=olByValue, _
> .Attachments.Add Source:=ActiveDocument.TextBox("TextBoxFile3").Result,
> Type:=olByValue, _
> .Attachments.Add Source:=ActiveDocument.TextBox("TextBoxFile4").Result,
> Type:=olByValue
> .Send

> "Sue Mosher [MVP]" wrote:
>
> > You need a separate .Attachments.Add statement for each attachment, not
> > one
> > long statement with multiple calls to the .Add method.
>

>> "JBark" <JBark> wrote in message
> > news:B6DFBA55-0410-444F-8A4B-1FE91DAD0B3C@microsoft.com...
> > > Hi,
> >> > How can this code be written to add multiple attachments using vba and
> > > Word
> > > as my email editor. The first attachment is the active document itself,
> > > the
> > > other 4 attachments have their full path names stored in a field in the
> > > document. This is what I have but I'm getting a syntax error and I'm
> > > not
> > > sure
> > > why. Any suggestions are greatly appreciated.
> >>> > .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _
> > > .Add Source:=ActiveDocument.TextBox("TextBoxFile1").Result,
> > > Type:=olByValue, _
> > > .Add Source:=ActiveDocument.TextBox("TextBoxFile2").Result,
> > > Type:=olByValue, _
> > > .Add Source:=ActiveDocument.TextBox("TextBoxFile3").Result,
> > > Type:=olByValue, _
> > > .Add Source:=ActiveDocument.TextBox("TextBoxFile4").Result,
> > > Type:=olByValue
> > > .Send
> > >

>

>
>>
 
Thanks Sue. The code runs fine without any errors and attaches the original

doc but not the additional docs. Should I ask someone over in the Word Forum

about this? Or do you have a suggestion as to why the additional files will

not attach?
 
If you have already made the change I suggested -- removing the extraneous

underscore characters so that you have each Attachments.Add call in a

separate statement -- I would suggest looking at the actual value of what

you're getting from the ActiveDocument.TextBox("TextBoxFile1").Result

expressions.

Sue Mosher

"JBark" <JBark> wrote in message

news:F602CE82-F4CD-4545-8F73-AC8A8BCC8A77@microsoft.com...
> Thanks Sue. The code runs fine without any errors and attaches the
> original
> doc but not the additional docs. Should I ask someone over in the Word
> Forum
> about this? Or do you have a suggestion as to why the additional files
> will
> not attach?


"Sue Mosher [MVP]" <suemvp@turtleflock.com> wrote in message

news:Obl0OZN%23JHA.2824@TK2MSFTNGP03.phx.gbl...
> This is still all one statement, because of the underscore continuation
> characters at the end of the first four lines.

> "JBark" <JBark> wrote in message
> news:E7B89599-FD4F-4E32-9052-569B27FBB3CB@microsoft.com...
> > Yes - I had tried that also like this, but I'm still getting syntax
> > error.
>

>> .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _
> > .Attachments.Add
> > Source:=ActiveDocument.TextBox("TextBoxFile1").Result,
> > Type:=olByValue, _
> > .Attachments.Add
> > Source:=ActiveDocument.TextBox("TextBoxFile2").Result,
> > Type:=olByValue, _
> > .Attachments.Add
> > Source:=ActiveDocument.TextBox("TextBoxFile3").Result,
> > Type:=olByValue, _
> > .Attachments.Add
> > Source:=ActiveDocument.TextBox("TextBoxFile4").Result,
> > Type:=olByValue
> > .Send
>

>> "Sue Mosher [MVP]" wrote:
> >
> >> You need a separate .Attachments.Add statement for each attachment, not
> >> one
> >> long statement with multiple calls to the .Add method.
> >
>>> "JBark" <JBark> wrote in message
> >> news:B6DFBA55-0410-444F-8A4B-1FE91DAD0B3C@microsoft.com...
> >> > Hi,
> >>>> > How can this code be written to add multiple attachments using vba and
> >> > Word
> >> > as my email editor. The first attachment is the active document
> >> > itself,
> >> > the
> >> > other 4 attachments have their full path names stored in a field in
> >> > the
> >> > document. This is what I have but I'm getting a syntax error and I'm
> >> > not
> >> > sure
> >> > why. Any suggestions are greatly appreciated.
> >>>>>> > .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue,
> >> > _
> >> > .Add Source:=ActiveDocument.TextBox("TextBoxFile1").Result,
> >> > Type:=olByValue, _
> >> > .Add Source:=ActiveDocument.TextBox("TextBoxFile2").Result,
> >> > Type:=olByValue, _
> >> > .Add Source:=ActiveDocument.TextBox("TextBoxFile3").Result,
> >> > Type:=olByValue, _
> >> > .Add Source:=ActiveDocument.TextBox("TextBoxFile4").Result,
> >> > Type:=olByValue
> >> > .Send
 
Yes - I kept digging and I was declaring the fields as formfields but they're

really textboxes. It works now like this:

> .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue

> Attachments.Add Source:=ActiveDocument.TextBoxFile1.Value,

Type:=olByValue

> Attachments.Add Source:=ActiveDocument.TextBoxFile2.Value,

Type:=olByValue

> Attachments.Add Source:=ActiveDocument.TextBoxFile3.Value,

Type:=olByValue

> Attachments.Add Source:=ActiveDocument.TextBoxFile4.Value,

Type:=olByValue

> Send

Thanks a bunch for your help!

"Sue Mosher [MVP]" wrote:


> If you have already made the change I suggested -- removing the extraneous
> underscore characters so that you have each Attachments.Add call in a
> separate statement -- I would suggest looking at the actual value of what
> you're getting from the ActiveDocument.TextBox("TextBoxFile1").Result
> expressions.
> > Sue Mosher
> > >

> "JBark" <JBark> wrote in message
> news:F602CE82-F4CD-4545-8F73-AC8A8BCC8A77@microsoft.com...
> > Thanks Sue. The code runs fine without any errors and attaches the
> > original
> > doc but not the additional docs. Should I ask someone over in the Word
> > Forum
> > about this? Or do you have a suggestion as to why the additional files
> > will
> > not attach?


> "Sue Mosher [MVP]" <suemvp@turtleflock.com> wrote in message
> news:Obl0OZN%23JHA.2824@TK2MSFTNGP03.phx.gbl...
> > This is still all one statement, because of the underscore continuation
> > characters at the end of the first four lines.
> > "JBark" <JBark> wrote in message
> > news:E7B89599-FD4F-4E32-9052-569B27FBB3CB@microsoft.com...
> >> Yes - I had tried that also like this, but I'm still getting syntax
> >> error.
> >
> >> .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _
> >> .Attachments.Add
> >> Source:=ActiveDocument.TextBox("TextBoxFile1").Result,
> >> Type:=olByValue, _
> >> .Attachments.Add
> >> Source:=ActiveDocument.TextBox("TextBoxFile2").Result,
> >> Type:=olByValue, _
> >> .Attachments.Add
> >> Source:=ActiveDocument.TextBox("TextBoxFile3").Result,
> >> Type:=olByValue, _
> >> .Attachments.Add
> >> Source:=ActiveDocument.TextBox("TextBoxFile4").Result,
> >> Type:=olByValue
> >> .Send
> >
> >> "Sue Mosher [MVP]" wrote:
> >
> >>> You need a separate .Attachments.Add statement for each attachment, not
> >>> one
> >>> long statement with multiple calls to the .Add method.
> >>
> >>> "JBark" <JBark> wrote in message
> >>> news:B6DFBA55-0410-444F-8A4B-1FE91DAD0B3C@microsoft.com...
> >>> > Hi,
> >>> >>> > How can this code be written to add multiple attachments using vba and
> >>> > Word
> >>> > as my email editor. The first attachment is the active document
> >>> > itself,
> >>> > the
> >>> > other 4 attachments have their full path names stored in a field in
> >>> > the
> >>> > document. This is what I have but I'm getting a syntax error and I'm
> >>> > not
> >>> > sure
> >>> > why. Any suggestions are greatly appreciated.
> >>> >>> >>> > .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue,
> >>> > _
> >>> > .Add Source:=ActiveDocument.TextBox("TextBoxFile1").Result,
> >>> > Type:=olByValue, _
> >>> > .Add Source:=ActiveDocument.TextBox("TextBoxFile2").Result,
> >>> > Type:=olByValue, _
> >>> > .Add Source:=ActiveDocument.TextBox("TextBoxFile3").Result,
> >>> > Type:=olByValue, _
> >>> > .Add Source:=ActiveDocument.TextBox("TextBoxFile4").Result,
> >>> > Type:=olByValue
> >>> > .Send


>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
O Outlook tasks - Add text column with multiple lines Using Outlook 3
A Add multiple servers "on behalf of" email to "safe senders" list. Using Outlook 1
C Macro to add multiple recipients to message Outlook VBA and Custom Forms 3
Z bulk add categories / with fixed colours / select multiple categories on a not Using Outlook 1
R Add multiple individuals as meeting organizer Using Outlook 4
K 2003 Outlook Contacts - how do I add text to multiple contacts .... Outlook VBA and Custom Forms 2
J OL add-In for multiple versions Outlook VBA and Custom Forms 1
U Not able to delete Add-in button from multiple Outlook Explorer Outlook VBA and Custom Forms 1
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
G Outlook 2021 Add Picture to Custom Contact Form Outlook VBA and Custom Forms 2
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0
G automatically choosing "add to autocorrect" option Using Outlook 0
F Want to add second email to Outlook for business use Using Outlook 4
K Add an entry to a specific calendar Using Outlook 1
F Add a category before "Send an Email When You Add an Appointment to Your Calendar" Outlook VBA and Custom Forms 0
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
J Outlook 365 Add keywords from Listbox to the message body where cursor is placed Outlook VBA and Custom Forms 0
O Add Day Number of the year for 2023-2033 Outlook VBA and Custom Forms 5
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
Witzker Add a text line at the end of the note field in all selected Contacts Outlook VBA and Custom Forms 7
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 10
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Add contacts birthday to calendar Using Outlook 4
V How to add 'Previous Item' and 'Next Item' to the Quick Access Toolbar Using Outlook 1
Commodore Safe way to add or update holidays; Windows Notifications issue Using Outlook 8
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
L did MS ever add way to text via Outlook Using Outlook 5
P How to add a column named categories when searching in Outlook Using Outlook 0
M add new attendee to existing meetings with VBA Outlook VBA and Custom Forms 5
N Can't create NEW GROUP and add/remove a member from existing Group in Outlook Using Outlook 1
Witzker Outlook 2019 Pls. add a Prefix for OUTLOOK 2019 here Using Outlook 1
P Add inanimate objects to meetings? Using Outlook 1
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
BartH Add a string to the conditions in .Conditions.BodyOrSubject.Text Outlook VBA and Custom Forms 2
A "Get Add-Ins" - Which Version of Outlook to use Using Outlook 1
D Do I need Exchange Add-In? Using Outlook 6
C-S-R Manage Add-ins (Remove Wunderlist) Using Outlook 6
A iCloud add in problems Using Outlook 4
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
C Looking for feedback on new Outlook Add-in Using Outlook 0
L isn't there an OL add-on that flags addressee before sending Using Outlook 3
S Add VBA save code Using Outlook 0
P Shortcut Pane - add shortcut to Office365 group mailbox Using Outlook 1
Z Add ComboBox Value to Body of Email Outlook VBA and Custom Forms 1
G How to add a folder shortcut to outlook quick access toolbar? Using Outlook 6
G Add to Outlook Contacts - Point to non-default contacts folder Using Outlook 0

Similar threads

Back
Top