Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Solved
Word email VBA error message: "this item has been moved or deleted"
Posted on 2009-05-12
I have a form that I created in Word with an e-mail (SendForReview) button on it. The email works fine, but several minutes after sending, Word opens and an error message pops up that says "this item has been moved or deleted". I click ok, and about a minute later the same thing happens. Then a minute later it happens again.
The code for the button is below, with the email addys removed...
Any ideas?
The code for the button is below, with the email addys removed...
Any ideas?
Private Sub CommandButton1_Click()
ThisDocument.SendForReview _
Recipients:="xxxx@xxx.com; xxxx@xxx.org", _
Subject:="Please review this document.", _
ShowMessage:=False, _
IncludeAttachment:=True
End Sub
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3
4 Comments
good afternoon!
try this approach!
sub SendEmail()
Dim objMsg As Object
Dim objConfi As Object
Dim strBody As String
Set objMsg = CreateObject("CDO.Message"
Set objConfi = CreateObject("CDO.Configur
With objMsg
Set .configuration = objConfi
.to = <receiver>
.from = <sender>
.Subject = "Test"
.textbody = "This is a test message only."
.AddAttachment <path of the file to attached> ' example "C:\test.txt"
.send
End With
MsgBox "OK"
end sub
i hope i could give u idea...
game-master
this approach as well..
Set objSession = CreateObject("MAPI.session
objSession.Logon profileName:="DARTS"
' Add a new message object to the OutBox.
Set objMessage = objSession.Outbox.Messages
' Set the properties of the message object.
objMessage.Subject = "title"
objMessage.Text = "content"
' Add a recipient object to the objMessage.Recipients collection.
objMessage.Recipients.Add "alberto.viveros@gapac.com
objMessage.Recipients(1).T
objMessage.Recipients(1).R
objMessage.Attachments.Add
objMessage.Update
objMessage.Send showDialog:=False
objSession.Logoff
I found that the problem is that the "SendForReview" method tries to track the email. I had some problems relating to that.
I ended up with the following, which works fine:
I ended up with the following, which works fine:
Private Sub CommandButton1_Click()
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next
If Len(ActiveDocument.Path) = 0 Then 'Document has not been saved
ActiveDocument.Save 'so save it
End If
'see if Outlook is running and if so turn your attention there
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then 'Outlook isn't running
'So fire it up
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If
'Open a new e-mail message
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem 'and add the detail to it
.To = "abcde@wxyz.org; fghij@wxyz.org" 'send to this address
.Subject = "Room Reservation" 'This is the message subject
.Body = "Please review this reservation form." ' This is the message body text
.Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue
.Send
End With
Me.Close
End Sub
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Preface:
When I started this series, I used the term CommandBars because that is the Office Object class that it discusses. Unfortunately, when Microsoft introduced Office 2007, they replaced the standard Commandbar menus with "The Ribbon" and rem…
This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
In a previous video Micro Tutorial here at Experts Exchange (http://www.experts-exchange.com/videos/1358/How-to-get-a-free-trial-of-Office-365-with-the-Office-2016-desktop-applications.html), I explained how to get a free, one-month trial of Office …
- Microsoft Office
- Office 365
- Office / Productivity
- Microsoft Excel
- Microsoft Word
- Outlook, Microsoft Access, Microsoft PowerPoint, *microsoft publisher, *Office 2016
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you!
In this Micro Tutorial, you'll learn yo…
- Microsoft Applications
- Windows 10
- Windows OS
- Fonts Typography
- Windows 7, Microsoft Word
Suggested Courses
Course of the Month13 days, 17 hours left to enroll
656 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.