AW: email
12.11.2003 19:26:38
Werner
Hallo Helmut,
Hier die Mail Makros zum testen!
Option Explicit
Sub Microsoft_Outlook()
Dim appOL, itemMail, actWB As String
actWB = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
' Mit diesen Anweisungen wird eine E-Mail-Nachricht
' in Microsoft Outlook erstellt
Set appOL = CreateObject("Outlook.Application")
Set itemMail = appOL.CreateItem(0)
With itemMail
.To = "hans.muster@provider.de"
.Subject = "Betreff: Test Mail"
.Body = "Hier ist mein Text," & vbNewLine & "Auch auf mehreren Linien!"
.Attachments.Add actWB
'.send
.Display
End With
End Sub
Sub Outlook_Express()
' Mit diesen Anweisungen wird eine E-Mail-Nachricht
' in Outlook Express erstellt
Dim s, s2 As String
s = "peter.muster@musterweb.de" 'für mehrere Adressen trennen mit ; (Semikolon)
'"peter.muster@musterweb.de;hans.muster@provider.de"
s2 = "Betreff"
Application.Dialogs(xlDialogSendMail).Show s, s
End Sub
Ich behalte den Link zum Forum noch für eine Woche auf, fals du noch Fragen hast!
Gruss Werner