mail per makro
01.12.2005 15:48:42
Kayhan
habe mir folgendes makro zusammengestellt, und bräuchte kurz hilfe bei der zeile
.cc =
ist es möglich hier keine fest vordefinierte mail-adresse einzufügen, sondern die mail-adresse des versenders ? auf die datei werden mehrere kollegen zugriff haben.
vielen dank vorab und gruss kayhan
Sub Mail_mit_zwei_Adressen()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ActiveWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "admin@firma.de"
.Cc = "kollege x,y,Z@firma.de"
.Subject = "bla bla bla" & ActiveSheet.Range("A1")
.attachments.Add AWS
.Body = "Hallo," & vbCrLf & vbCrLf & "bla bla bla" & vbCrLf & vbCrLf & "Vielen Dank und viele Grüße" & vbCrLf & vbCrLf & "bla bla"
.ReadReceiptRequested = False
.send
End With
ActiveWorkbook.Close
End Sub
Anzeige