Formatierung Text SerienMail

20/05/2008 - 14:06 von bbent | Report spam
Hi.

Ich habe ein Problem mit dem Versand von Serienmails in Office. Ich mache es
mit Word und einem Macro, dass ich im Internet gefunden habe. Ich habe jetzt
nur das Problem, dass die fertigen Mails höchstwahrscheinlich als
Nur-Text-formatiert sind und so Textformatierungen fehlen sowie ein .jpg.

Hier das Macro:

Sub emailmergewithattachments()



Dim Source As Document, Maillist As Document

Dim Datarange As Range

Dim Counter As Integer, i As Integer

Dim bStarted As Boolean

Dim oOutlookApp As Outlook.Application

Dim oItem As Outlook.MailItem

Dim mysubject As String, message As String, title As String



Set Source = ActiveDocument



' Check if Outlook is running. If it is not, start Outlook

On Error Resume Next

Set oOutlookApp = GetObject(, "Outlook.Application")

If Err <> 0 Then

Set oOutlookApp = CreateObject("Outlook.Application")

bStarted = True

End If



' Open the catalog mailmerge document

With Dialogs(wdDialogFileOpen)

.Show

End With

Set Maillist = ActiveDocument



' Show an input box asking the user for the subject to be inserted into the
email messages



message = "Enter the subject to be used for each email message." ' Set
prompt.

title = " Email Subject Input" ' Set title.

' Display message, title

mysubject = InputBox(message, title)



' Iterate through the rows of the catalog mailmerge document, extracting the
information

' to be included in each email.

Counter = 1

While Counter <= Maillist.Tables(1).Rows.Count

Source.Sections.First.Range.Cut

Documents.Add

Selection.Paste

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem

.Subject = mysubject

.Body = ActiveDocument.Content

Set Datarange = Maillist.Tables(1).Cell(Counter, 1).Range

Datarange.End = Datarange.End - 1

.To = Datarange

For i = 2 To Maillist.Tables(1).Columns.Count

Set Datarange = Maillist.Tables(1).Cell(Counter, i).Range

Datarange.End = Datarange.End - 1

.Attachments.Add Trim(Datarange.Text), olByValue, 1

Next i

.Send

End With

Set oItem = Nothing

ActiveDocument.Close wdDoNotSaveChanges

Counter = Counter + 1

Wend



' Close Outlook if it was started by this macro.

If bStarted Then

oOutlookApp.Quit

End If



'Clean up

Set oOutlookApp = Nothing

Source.Close wdDoNotSaveChanges

Maillist.Close wdDoNotSaveChanges



End Sub

Kann es sein, dass dieses Problem durch das Makro hervorgerufen wird bzw.
man etwas im Makro àndern kann, damit die eMail im HTML-Format und mit
Bildern gesendet wird?

Danke!
 

Lesen sie die antworten

#1 Martin Stolz [Planet Outlook]
20/05/2008 - 18:19 | Warnen spam
"bbent" wrote:

Ich habe ein Problem mit dem Versand von Serienmails in Office. Ich mache es
mit Word und einem Macro, dass ich im Internet gefunden habe. Ich habe jetzt
nur das Problem, dass die fertigen Mails höchstwahrscheinlich als
Nur-Text-formatiert sind und so Textformatierungen fehlen sowie ein .jpg.
..



Hallo bbent,

schau Dir bitte mal zu diesem Thema folgende Seite bei Planet-Outlook an, wo
Serienmails behandelt werden:
http://www.planet-outlook.de//seriendruck.htm

Du nennst uns leider nicht Deine genaue Outlook-Version - das ist von einern
genauen Antwort aber abhàngig. Vielleicht findest Du die Infos ja auf der
Seite von Planet-Outlook!?

Martin Stolz
Planet Outlook - Alles über Outlook

MVP-Microsoft Outlook
http://www.planet-outlook.de

Ähnliche fragen