PDA

Vollständige Version anzeigen : Mailaufruf per VBA ???


virus
05.02.2001, 12:00
Hallo,

ich hätte eine Frage zu VBA:
Ich möchte in Word ein Makro machen, indem dann das aktuelle Dokument als Anhang per Mail weiterverschickt wird.

Dies hab ich geschaft ... *freu*

Nur - wie kann ich eine "vordefinierte" Mail-Adresse im Makrocode hinterlegen ???????

Wisst Ihr Rat ?????????????

virus
07.03.2001, 10:41
Hi Namesvetter :-)

Folgendes sollte Dir helfen:

********-Kommando:
---------------------

Das ********-Kommando erzeugt ein leeres Mailfenster mit dem
Dokumentnamen als
Betreff. Es kann lediglich mittels ********Attach-Eigenschaft festgelegt
werden,
ob das Dokument als Attachment angefügt wird oder nicht, weitere
Einstellungen
sind mit diesem Befehl nicht möglich:

Sub Sende_Dokument()
Options.********Attach = False
ActiveDocument.********
End Sub

OLE-Automation mit Oulook:
----------------------------------------

Das folgende Beispiel verwendet OLE-Automation, um in Outlook eine neue
Email zu
eröffnen, darin einige Einstellungen zu setzen und das Dokument
anzufügen.
Zu beachten ist, daß zwingend im VBA Editor über Extras-Verweise ein
Verweis auf
die "Microsoft Outlook 8.0/9.0 Object Library" gesetzt sein muß:

' Deklarationen der verwendeten API-Aufrufe FindWindow und ShowWindow:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName
_
As String, ByVal lpWindowName As Long) As Long

Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal
nCmdShow As
_
Integer) As Long

Sub ********_mit_outlook()
' Outlook process already running or do we have to create it?
hWnd = FindWindow("rctrl_renwnd32", 0)
If hWnd = 0 Then
Set ol = CreateObject("Outlook.Application")
hWnd = FindWindow("rctrl_renwnd32", 0)
Else
Set ol = GetObject(, "Outlook.Application")
End If
lret = ShowWindow(hWnd, 2)
Dim mymail As Outlook.MailItem
' create new email:
Set mymail = ol.CreateItem(olMailItem)
' set mail subject to document name:
mymail.Subject = ActiveDocument.Name
mymail.Body = ActiveDocument.Range.Text

' If we would like to add a document as attachment we would need:
' mymail.Attachments.Add Source:=ActiveDocument.FullName

' display email:
mymail.Display

' deallocate memory objects
Set mymail = Nothing
Set ol = Nothing

End Sub

Grüße
Virus

md
24.03.2001, 11:45
Hallo!

Falls die Mail Adresse in der textmarke " EMail" ist:

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

Grüße

MD