windows 10 pro office 2019 pro office 365 pro windows 10 home windows 10 enterprise office 2019 home and business office 2016 pro windows 10 education visio 2019 microsoft project 2019 microsoft project 2016 visio professional 2016 windows server 2012 windows server 2016 windows server 2019 Betriebssysteme office software windows server https://softhier.com/ instagram takipçi instagram beğeni instagram görüntüleme instagram otomatik beğeni facebook beğeni facebook sayfa beğenisi facebook takipçi twitter takipçi twitter beğeni twitter retweet youtube izlenme youtube abone instagram

Word VBA Macro error; ‘Compile Error: User-defined type not defined’ Attempting to Compile Code

Asked By: Anonymous

Members,

I am trying to run Automatic mail from my word! But I am getting the error ‘Compile Error: User-defined type not defined’ Attempting to Compile Code

As well as I am also getting the error of Can’t execute code in break mode!

Any idea How to solve this issue?

The Entire VBA code are below;

Anyone can help me?

Sub EnhancedMailMergeToEmail()



' REFERENCES REQUIRED!
' This Macro requires you to add the following libraries:
' "Microsoft Outlook xx.x Object Library" (replace xx.x with version number) and "Microsoft Scripting Runtime"
' To add them, use the "Tools" menu and select "References". Tick the check boxes next to the two libraries and press OK.


    ' declare variables
    Dim outlookApp As Outlook.Application
    Dim outlookMail As Outlook.MailItem
    Dim outlookAccount As Outlook.Account
    Dim fso As FileSystemObject
    Dim f As Object
    Dim attachFile As File
    Dim mm As MailMerge
    Dim df As MailMergeDataField
    Dim singleDoc As Document
    Dim mailBody As String
    Dim lastRecordNum As Long
    Dim recordCount As Long
    Dim sendFlag As Boolean
    Dim hasDetailFlag As Boolean
    Dim tempFileName As String
    Dim tempFolderName As String

    ' identify the mail merge of the active document
    Set mm = ActiveDocument.MailMerge

    ' check for the mail merge state being that of a mail merge ready to go
    If mm.State <> wdMainAndDataSource Then
        If MsgBox("Mailmerge not set up for active document - cannot perform mailmerge. Macro will exit.", vbOKOnly + vbCritical, "Error") = vbOK Then Exit Sub
    End If


    ' set lastRecordNum to the number of the last active record (reached using wdLastRecord
    mm.DataSource.ActiveRecord = wdLastRecord
    lastRecordNum = mm.DataSource.ActiveRecord

    ' run through all the active records, counting them
    mm.DataSource.ActiveRecord = wdFirstRecord
    recordCount = 1
    Do Until mm.DataSource.ActiveRecord = lastRecordNum
        recordCount = recordCount + 1
        mm.DataSource.ActiveRecord = wdNextRecord
    Loop

    ' Give the user an opportunity to abort, and also the option to save the emails in drafts, or send immediatly
    Select Case MsgBox("MailMerge to email will proceed for " & recordCount & " active records." + Chr(10) + Chr(10) + _
                        "Click 'Yes' to send the emails immediatly, 'No' to save the emails in draft, and 'Cancel' to abort.", _
                        vbYesNoCancel + vbDefaultButton2 + vbQuestion, "Send Emails")
        Case vbCancel
            Exit Sub
        Case vbYes
            sendFlag = True
        Case Else
            sendFlag = False
    End Select


    ' set variables
    ' outlookApp is used to control outlook to send an email
    ' fso is used to read the HTML file with the email content
    Set outlookApp = New Outlook.Application
    Set fso = New FileSystemObject


    ' we need to use a temporary file to store the html generated by mail merge
    ' fso.GetTempName creates a name with the extension tmp. We remove this
    ' because image files are stored in a folder with the name without the extension and with "_files" at the end
    tempFileName = Replace(fso.GetTempName, ".tmp", "")

    mm.DataSource.ActiveRecord = wdFirstRecord
    recordCount = 0

    ' loop through all the records
    Do While lastRecordNum > 0

        ' run through the fields to check if a valid email address is provided in any of the "to", "cc" or "bcc" fields (valid address = contains an "@")
        hasDetailFlag = False
        For Each df In mm.DataSource.DataFields
            Select Case Trim(LCase(df.Name))
                Case "to", "cc", "bcc"
                    If InStr(1, df.Value, "@", vbTextCompare) > 0 Then
                        hasDetailFlag = True
                        Exit For
                    End If
            End Select
        Next

        ' only create an email if there is a valid address
        If hasDetailFlag Then

            ' use mailmerge to create a new document for one record (defined by mm.DataSource.ActiveRecord)
            mm.Destination = wdSendToNewDocument
            mm.DataSource.FirstRecord = mm.DataSource.ActiveRecord
            mm.DataSource.LastRecord = mm.DataSource.ActiveRecord
            mm.Execute Pause:=False

            ' save the generated doc as a html file in the temp directory
            Set singleDoc = ActiveDocument
            singleDoc.SaveAs2 FileName:=Environ("Temp") & Application.PathSeparator & tempFileName & ".tmp", FileFormat:=wdFormatFilteredHTML
            singleDoc.Close
            Set singleDoc = Nothing

            ' read the html from the temp directory using fso
            mailBody = fso.OpenTextFile(Environ("Temp") & Application.PathSeparator & tempFileName & ".tmp", 1).ReadAll

            ' create a new email message in outlook
            Set outlookMail = outlookApp.CreateItem(olMailItem)


            ' display the email so that any images display correctly
            outlookMail.Display

            ' ensure formatting is HTML
            outlookMail.BodyFormat = olFormatHTML

            ' if the html contains images, then they will be stored in a directory called
            ' tempFileName followed by the _files in the local language (e.g. _bestanden in Dutch)
            ' so we need to find the directory, and the loop through each of the files
            ' checking to see if the files are included in the email as an image (i.e. as 'src="..."')
            ' if the image is included then the image is attached to the email as a hidden attachment
            ' and the image path is updated to point to the attached image

            ' try and find the temporary folder name which would contain any images
            tempFolderName = ""
            For Each f In fso.GetFolder(Environ("Temp")).SubFolders
                If Left(f.Name, Len(tempFileName) + 1) = tempFileName & "_" Then
                    tempFolderName = f.Name
                    Exit For
                End If
            Next

            ' if the folder has been found, iterate through the files
            If tempFolderName <> "" Then
                For Each attachFile In fso.GetFolder(Environ("Temp") & Application.PathSeparator & tempFolderName).Files
                    If InStr(1, mailBody, "src=""" & tempFolderName & "/" & attachFile.Name & """", vbBinaryCompare) > 0 Then
                        outlookMail.Attachments.Add attachFile.Path, 1, 0
                        mailBody = Replace(mailBody, "src=""" & tempFolderName & "/" & attachFile.Name & """", "src=""cid:" & attachFile.Name & """")
                    End If
                Next
            End If

            ' add the mail body from the html created via mailmerge and updated for the newly attached images
            outlookMail.HTMLBody = mailBody


            ' run through all the fields in the mail merge data, when an email field is identified add the data to the appropriate field
            For Each df In mm.DataSource.DataFields

                ' first check for the field being populated for the active record (row), only check if there is data provided
                If Trim(df.Value) <> "" Then

                    ' try matching the field name to accepted field names
                    ' note that the field name is converted to lower case and trimmed to maximise chances of matching
                    Select Case Trim(LCase(df.Name))

                        Case "to"
                            ' add in the to address or addresses as they are presented in the data, multiple address should be separated by a semicolon
                            outlookMail.To = df.Value

                        Case "cc"
                            ' add in the cc address or addresses as they are presented in the data, multiple address should be separated by a semicolon
                            outlookMail.CC = df.Value

                        Case "bcc"
                            ' add in the bcc address or addresses as they are presented in the data, multiple address should be separated by a semicolon
                            outlookMail.BCC = df.Value

                        Case "subject"
                            ' add in the subject as it is presented in the data
                            outlookMail.Subject = df.Value

                        Case "importance"
                            ' change the importance, accepted input values are "high", "normal", and "low" (not case sensitive)
                            ' if field is not provided, or an incorrect input value is provided, then the default is used
                            ' default is typically "Normal", but may have been changed in Outlook Options.
                            Select Case Trim(LCase(df.Value))
                                Case "high"
                                    outlookMail.Importance = olImportanceHigh
                                Case "normal"
                                    outlookMail.Importance = olImportanceNormal
                                Case "low"
                                    outlookMail.Importance = olImportanceLow
                            End Select

                        Case "sensitivity"
                            ' change the sensitivity, accepted input values are "confidential", "personal", "private", or "normal" (not case sensitive)
                            ' if field is not provided, or an incorrect input value is provided, then the default is used
                            ' default is typically "Normal", but may have been changed in Outlook Options.
                            Select Case Trim(LCase(df.Value))
                                Case "confidential"
                                    outlookMail.Sensitivity = olConfidential
                                Case "personal"
                                    outlookMail.Sensitivity = olPersonal
                                Case "private"
                                    outlookMail.Sensitivity = olPrivate
                                Case "normal"
                                    outlookMail.Sensitivity = olNormal
                            End Select

                        Case "readreceipt"
                            ' request or do not request a read receipt
                            ' if the field contains a boolean TRUE, or any form of "true"/"yes"/"y" (case insensitive) then request a read receipt
                            ' if the field contains a boolean FALSE, or any form of "false"/"no"/"n" (case insensitive) then do not request a read receipt
                            ' if field is not provided, or an incorrect input value is provided, then the default is used
                            ' default is typically to not request a read receipt, but may have been changed in Outlook Options.
                            Select Case Trim(LCase(df.Value))
                                Case "true", "yes", "y"
                                    outlookMail.ReadReceiptRequested = True
                                Case "false", "no", "n"
                                    outlookMail.ReadReceiptRequested = False
                            End Select

                        Case "deliveryreceipt"
                            ' request or do not request a delivery report
                            ' if the field contains a boolean TRUE, or any form of "true"/"yes"/"y" (case insensitive) then request a delivery report
                            ' if the field contains a boolean FALSE, or any form of "false"/"no"/"n" (case insensitive) then do not request a delivery report
                            ' if field is not provided, or an incorrect input value is provided, then the default is used
                            ' default is typically to not request a delivery report, but may have been changed in Outlook Options.
                            Select Case Trim(LCase(df.Value))
                                Case "true", "yes", "y"
                                    outlookMail.OriginatorDeliveryReportRequested = True
                                Case "false", "no", "n"
                                    outlookMail.OriginatorDeliveryReportRequested = False
                            End Select

                        Case "deliverytime"
                            ' add in a delivery time (delay delivery)
                            ' checks for the field containin a value or something which looks like a date and/or time
                            ' if a datetime is provided, and that datetime is in the future then the delay is added to that datetime
                            ' if a date is provided, and that date is in the future then the delay is added to midnight at the start of the provided date
                            ' if a time is provided then the next instance of that time will be used to define the delay (so email could be sent "tomorrow" if time already passed)
                            ' if no data, invalid data, or a date/datetime in the past is added then no delivery delay is added
                            If (IsNumeric(df.Value) Or IsDate(df.Value)) Then
                                If CDate(df.Value) < Now() - Date Then      ' time only, time is in the past so set time for "tomorrow"
                                    outlookMail.DeferredDeliveryTime = Date + 1 + CDate(df.Value)
                                ElseIf CDate(df.Value) < 1 Then             ' time only, time is in the future so set time for "today"
                                    outlookMail.DeferredDeliveryTime = Date + CDate(df.Value)
                                ElseIf CDate(df.Value) > Now() Then         ' date or datetime in the future
                                    outlookMail.DeferredDeliveryTime = CDate(df.Value)
                                End If
                            End If

                        Case "account"
                            ' select the account from which the email is to be sent
                            ' the account is identified by its full email address
                            ' to identify the account, the code cycles through all the accounts available and selects a match
                            ' if no data, or a non-matching email address is provided, then the default account is used
                            ' note! not the same as send as - see below
                            For Each outlookAccount In outlookApp.Session.Accounts
                                If outlookAccount.SmtpAddress = df.Value Then
                                    outlookMail.SendUsingAccount = outlookAccount
                                    Exit For
                                End If
                            Next

                        Case "sendas"
                            ' add in an address to send as or send on behalf of
                            ' only added if a valid email address
                            ' if the account does not have permissions, the email will be created but will be rejected by the Exchange server if sent
                            If InStr(1, df.Value, "@", vbTextCompare) > 0 Then outlookMail.SentOnBehalfOfName = df.Value

                        Case Else
                            If Left(Trim(LCase(df.Name)), 10) = "attachment" And _
                                    (Mid(Trim(df.Name), 11) = "" Or IsNumeric(Mid(Trim(df.Name), 11))) Then
                                ' if the field name is "attachment" (not case sensitive) or is "attachment" followed only by numbers
                                ' e.g. "Attachment1" then the filepath will be added as an attachment.
                                outlookMail.Attachments.Add df.Value
                            End If

                    End Select  ' end test for the field names
                End If      ' end check for the data value being blank
            Next df     ' move on to the next record


            ' check the send flag and send or save
            If sendFlag Then
                outlookMail.Send
            Else
                outlookMail.Close (olSave)
            End If

            Set outlookMail = Nothing

        Else
            recordCount = recordCount + 1   ' keep a tally of skipped records using recordCount
        End If      ' end the test for whether a valid address is presented in the data


        ' test if we have just created a document for the last record, if so we set lastRecordNum to zero to indicate that the loop should end, otherwise go to the next active record
        If mm.DataSource.ActiveRecord >= lastRecordNum Then
            lastRecordNum = 0
        Else
            mm.DataSource.ActiveRecord = wdNextRecord
        End If

    Loop

End Sub

Solution

Answered By: Anonymous

Open the Visual Basic Editor and go to Tools | References. You need to ensure that you have references set to the Microsoft Outlook Object Library and Microsoft Scripting Runtime.

Below is a screenshot of the References dialog for Office 2016 / 2019 / 365

enter image description here

The second error means exactly what it says – you are attempting to run code in Break mode. The online Help articles for VBA errors can be found here. Additional information can be found simply by typing "VBA break mode" into your favorite search engine.

techinplanet staff

çanakkale escort erzincan escort van escort zonguldak escort kütahya escort osmaniye escort çorum escort giresun escort yozgat escort edirne escort uşak escort niğde escort amasya escort bolu escort kırıkkale escort karaman escort kırşehir escort sinop escort ısparta escort rize escort balıkesir escort kahramanmaraş escort trabzon escort erzurum escort batman escort elazığ escort tokat escort sivas escort mersin escort aydın escort manisa escort muğla escort tekirdağ escort urfa escort yalova escort fethiye escort

Windows 10 Kaufen Windows 10 Pro Office 2019 Kaufen Office 365 Lizenz Windows 10 Home Lizenz Office 2019 Home Business Kaufen windows office 365 satın al follower kaufen instagram follower kaufen porno

adana escort adapazarı escort adıyaman escort afşin escort afyon escort ağrı escort ahlat escort akçaabat escort akçakale escort akçakoca escort akdeniz escort akhisar escort aksaray escort akşehir escort aksu escort akyazı escort alanya escort alaşehir escort aliağa escort altıeylül escort altınordu escort amasya escort anamur escort ankara escort antakya escort antalya escort araklı escort ardahan escort ardeşen escort arnavutköy escort atakum escort avanos escort avcılar escort aydın escort ayvacık escort ayvalık escort aziziye escort babaeski escort bafra escort bağcılar escort bağlar escort balıkesir escort bandırma escort bartın escort batıkent escort batman escort battalgazi escort bayburt escort belek escort besni escort beylikdüzü escort beyşehir escort biga escort bilecik escort bingöl escort birecik escort bismil escort bitlis escort bodrum escort bolu escort bor escort bornova escort boyabat escort bozüyük escort buca escort bucak escort bulancak escort bulanık escort bünyan escort burdur escort bursa escort çan escort çanakkale escort canik escort çankaya escort çankırı escort çarşamba escort çayeli escort çekmeköy escort çerkeş escort çerkezköy escort çeşme escort ceyhan escort çivril escort çorlu escort çorum escort çubuk escort çukurova escort çumra escort dalaman escort darıca escort datça escort davutlar escort defne escort denizli escort derince escort develi escort didim escort digor escort dinar escort diyadin escort diyarbakır escort doğanşehir escort doğubayazıt escort dörtyol escort dulkadiroğlu escort düzce escort edirne escort edremit escort efeler escort elazığ escort elbistan escort emirdağ escort erbaa escort erdemli escort ereğli escort erenler escort ergani escort ergene escort erzincan escort erzurum escort escort esenler escort eskil escort eskişehir escort espiye escort eyyübiye escort fatih escort fatsa escort fethiye escort finike escort fındıklı escort gaziantep escort gaziemir escort gebze escort gediz escort gelibolu escort gemerek escort gemlik escort gerede escort giresun escort gölbaşı escort gölcük escort görele escort görükle escort göynük escort gümbet escort gümüşhane escort güngören escort güroymak escort gürsu escort hakkari escort haliliye escort hatay escort haymana escort horasan escort iğdır escort ilgaz escort i̇lkadım escort i̇negöl escort i̇skenderun escort isparta escort i̇stanbul escort i̇zmir escort i̇zmit escort i̇znik escort kadirli escort kadıköy escort kağıthane escort kağızman escort kahta escort kaman escort kangal escort kapaklı escort karabük escort karacabey escort karahayıt escort karaköprü escort karaman escort karatay escort karesi escort kars escort karşıyaka escort kartal escort kaş escort kastamonu escort kaynaşlı escort kayseri escort keçiören escort kemer escort kepez escort keşan escort keskin escort kestel escort kilis escort kırıkhan escort kırıkkale escort kırkağaç escort kırklareli escort kırşehir escort kızıltepe escort kocaeli escort kocasinan escort konak escort konya escort konyaaltı escort körfez escort korkuteli escort köyceğiz escort kozan escort kumluca escort kumru escort kuşadası escort kütahya escort lara escort lüleburgaz escort malatya escort malazgirt escort malkara escort maltepe escort mamak escort manavgat escort manisa escort maraş escort mardin escort marmaris escort melikgazi escort menemen escort menteşe escort meram escort mersin escort merzifon escort mezitli escort milas escort mucur escort mudanya escort mudurnu escort muğla escort muratpaşa escort muş escort mut escort nazilli escort nevşehir escort niğde escort niksar escort nilüfer escort nizip escort nurdağı escort ödemiş escort of escort oltu escort onikişubat escort ordu escort orhangazi escort ortahisar escort ortaköy escort osmancık escort osmangazi escort osmaniye escort palandöken escort pamukkale escort pamukova escort patnos escort payas escort pazar escort pazarcık escort pendik escort polatlı escort rize escort safranbolu escort şahinbey escort sakarya escort salihli escort samandağ escort samsun escort sandıklı escort şanlıurfa escort sapanca escort sarıçam escort sarıkamış escort sarıyer escort şarkışla escort şehitkamil escort selçuklu escort selim escort serdivan escort serik escort seyhan escort siirt escort silifke escort simav escort sincan escort sinop escort şişli escort sivas escort siverek escort şırnak escort söğüt escort söke escort soma escort sultangazi escort suluova escort sungurlu escort sur escort suruç escort suşehri escort susurluk escort talas escort tarsus escort taşova escort tavşanlı escort tekirdağ escort terme escort tire escort tirebolu escort tokat escort torbalı escort toroslar escort trabzon escort turgutlu escort turhal escort türkoğlu escort tuzla escort ulus escort ümraniye escort ünye escort ürgüp escort urla escort uşak escort üsküdar escort üzümlü escort van escort varto escort viranşehir escort yahşihan escort yahyalı escort yakutiye escort yalova escort yatağan escort yenişehir escort yeşilyurt escort yıldırım escort yıldızeli escort yomra escort yozgat escort yunusemre escort yüreğir escort zara escort zeytinburnu escort zile escort zonguldak escort mersin escort aydın escort manisa escort muğla escort tekirdağ escort urfa escort yalova escort fethiye escort