ich habe eine Word Datei in der ich Makro eingefügt haben.
Und zwar erstelle dieses ein PDF und fügt dieses PDF in eine neue E-Mail ein.
Dieses funktionier auch prima.
- Code: Alles auswählen
Private Sub CommandButton1_Click()
Dim Signature As String
Signature = Environ("appdata") & "\Microsoft\Signatures\XX-XXXX-XXXX.htm"
Signature = CreateObject("Scripting.FileSystemObject").GetFile(Signature).OpenAsTextStream( _
1, -2).ReadAll
If ActiveDocument.Path = "" Then
MsgBox "Dokument muss erst gespeichert werden!", vbExclamation
Exit Sub
End If
Set objOL = CreateObject("Outlook.Application")
strTempPath = Environ("TEMP")
strFileNameNoExtension = Mid(ActiveDocument.Name, 1, InStrRev(ActiveDocument.Name, ".", -1, vbTextCompare) - 1)
strPDFPath = strTempPath & "\" & strFileNameNoExtension & ".pdf"
ActiveDocument.SaveAs2 FileName:=strPDFPath, FileFormat:=wdFormatPDF
Set objMail = objOL.CreateItem(0)
With objMail
.Subject = "XXXXXXXXX"
.To = "Test"
.htmlBody = "<p style='font-family:Berlin Type Office, Berlin Type Office, sans-serif; font-size:11pt;'>" & _
"Sehr geehrte XXXXXXXX," & "<br></br>" & "<br></br>" & "XXXXXXXXX" & Sendemonat & "</p>" & _
Signature
.Attachments.Add strPDFPath
.Display
End With
Set objOL = Nothing
End Sub
Im Dokument sind einige "Kontrollkätchten-Formularfelder". Dieses können aktiviert / angekreuzt werden.
Alle Felder haben eine individuelle Textmarkte.
Nun möchte ich gerne da je nach aktivierten Feld, eine anderer Empfänger in der Mail eingefügt wird.
Beispiel:
Wenn „Kontrollkätchten-Formularfelder XX“ = aktiviert ist, dann E-Mail Empfänger (To) = XXX@XXX.de
Wenn „Kontrollkätchten-Formularfelder YY“ = aktiviert ist, dann E-Mail Empfänger (To) = YYY@YYY.de
Ich hoffe ich konnte dies verständlich formulieren.
Vielen leben Dank.
Mark