Solved

Word email VBA error message: "this item has been moved or deleted"

Posted on 2009-05-12

3 solutions

817 Views

Last Modified: 2012-05-06

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?

Private Sub CommandButton1_Click()
    ThisDocument.SendForReview _
        Recipients:="xxxx@xxx.com; xxxx@xxx.org", _
        Subject:="Please review this document.", _
        ShowMessage:=False, _
        IncludeAttachment:=True
End Sub

Open in new window

Comment

Question by:statler01

[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

Join The Community

4 Comments

LVL 13

Assisted Solution

by:game-master

game-master earned 200 total points

ID: 243719272009-05-12

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.Configuration")

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

LVL 13

Assisted Solution

by:game-master

game-master earned 200 total points

ID: 243719342009-05-12

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.Add

' 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).Type = RECIPTYPE_TO
objMessage.Recipients(1).Resolve

objMessage.Attachments.Add FileName, 0, 1, PathFile
objMessage.Update

objMessage.Send showDialog:=False
objSession.Logoff

LVL 9

Accepted Solution

by:statler01

statler01 earned 0 total points

ID: 243792532009-05-13

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:

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

Open in new window

LVL 13

Expert Comment

by:game-master

ID: 243806282009-05-13

good morning!

it's good to know that u make it work...

cheers..

game-master

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Installing Smart Indenter in Office 2013-2016

Article by: MacroShadow

Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.

Delivering a Word Template for Use in Merging Data from Access

Article by: Helen

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…

Using Landscape and Portrait Orientation

Video by: Tony

This video shows and describes the main difference between both orientations in Microsoft Word. Viewers will understand when to use each orientation and how to get the most out of them.

Working with Hyperlinks

Video by: Tony

This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink": Type "http://" followed by a web address to reference a website or navigate to a document to ref…