Anpassung des Emailcodes
18.11.2005 19:01:25
Alex
Ich habe auf der CD von Hans nachstehenden Code zum Versenden von Email gefunden - jetzt möchte ich allerdings nur eine einzelne Mappe an Emailadressen versenden, die sich in Tabelle 1 A1:A5 befinden.
Ist das auf leichtem Wege möglich ?
Da meine VBA-kenntnisse eher Bescheiden sind, ersuche ich um Unterstützung.
lg Alex
Private Sub CommandButton4_Click()
'Sub Excel_Workbook_via_Outlook_Senden()
Sheets("Bericht").Select
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "aterlecki@inode.at"
.Subject = "Risikoanalyse " & Date & Time
.attachments.Add AWS
.Body = "Risikoanalyse." & vbCrLf & "Zur Kenntnis."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
'OutApp.Quit
'Set OutApp = Nothing
'Set Nachricht = Nothing
End Sub