PDA

Vollständige Version anzeigen : Email


md
24.03.2001, 13:27
Hallo Forum!

In einer Textmarke "EMail" ist eine E-Mail Adresse abgelegt.
Wie kann ich das aktive Dokument als Anhang einer Email an den Empfänger mit der Textmarkenadresse verschicken?

Danke für Antwort

MD

virus
27.03.2001, 09:53
Hi,
mit folgendem Makro sollte es klappen:

Private Sub CommandButton1_Click()
ActiveDocument.********
End Sub

Mfg
Virus

virus
27.03.2001, 10:06
ups, bei dir ist es ja mit textmarkenadresse ...

dann so ... :-)

Sub Email()
'
' Email Makro
'
Selection.GoTo What:=wdGoToBookmark, Name:="Email"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Copy
ActiveDocument.********
With Dialogs(wdDialogEditPasteSpecial)
End With
End Sub

mfg
virus

md
27.03.2001, 11:16
Hallo Virus! ( Schauder!)

Der Paste befehl klappt eben nicht, weil der Focus nicht auf dem richtigen Fenster ist.
Wenn man den Focus auf das "Neue Nachricht " fenster setzten könnte, würde es gehen.
(outlook express)

Danke

Dein MD